Задать вопрос
29 июля, 12:01

Какая структура программы верна. Перечислите и объясните найденные ошибки:

а)

Begin

program MyFirst;

X: = Y+195;

end.

b)

program MyProg

begin

Writeln ('Привет') ;

end.

+2
Ответы (1)
  1. 29 июля, 14:00
    0
    Верная под буквой b.

    под буквой а неверно так как строчка program MyFirst; должна быть первой в программе.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Какая структура программы верна. Перечислите и объясните найденные ошибки: а) Begin program MyFirst; X: = Y+195; end. b) program MyProg ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Program faceyourseif; var x:integer; k:integer; begin x : = Random (100) ; writeln ('Компьер загадал число от 0 до 100') ; writeln ('Попробуйте его угадать') ; repeat begin writeln ('Введите число') ; read (k) ; if k > x then writeln ('Не угадали!
Ответы (1)
где ошибка (z=4.5), (x=1.236). Помогите Program myprog; const rad=3.14/180; var a, y, z, x, cos, sin:real; begin a: = (2*cos * (x-rad*30)) / (1/3 + ((sin*2) * (y+2))) ; writeln ('z=') ; readln (z) ; y: = (z*z/5 + (z*z) / 7) ; writeln (' y = ', y) ;
Ответы (1)