Задать вопрос
ИнформатикаИнформатика
7 февраля, 20:35

Верна ли следующая программа? Если да, то сколько операторов она содержит, если нет, то почему: var x, y:integer; begin readln (y);; x:=0; if x>0 then; writeln (x, y); readln; end.

+3
Ответы (1)
  1. 7 февраля, 21:35
    0
    Программа неверна, так как в конце её ставится оператор readln, для которого не указано, какую переменную нужно прочесть. Этот оператор можно опустить, так как наличие его в данном случае не имеет смысла - в заголовке секции объявления переменных данной программы отсутствуют какие-либо переменные помимо a и b. Также, за readln (y) следуют два символа "; ", заместо которых нужно оставить только один из них.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Верна ли следующая программа? Если да, то сколько операторов она содержит, если нет, то почему: var x, y:integer; begin readln (y);; x:=0; ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=c*m; writeln ('s=', s); readln; end.
Ответы (1)
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);
Ответы (1)
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...'); Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
Что не так в программе, она должна узнать какое число больше? вот программа program primer; var a, b, с:integer; Begin readln (a, b, с); if a>b then writeln (a) else if b>c writeln (b) else if c>a writeln (c); end.
Ответы (1)
Program Example2; var Rand: array[1 ... 20] of integer; I, X, NumberX:integer, beginRandomize; writeln ('Masiv slychainix chisel') for I:=1 to 20 dobeginRand[I]:random (50); write (Rand[I]:4) end; writeln; write ('Vvedite X:')); readln (X);
Ответы (1)
Нужен ответ
Найдите координаты точки, через которую проходят графики функций y=kx - 2k-3 при любых значениях параметра k
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Вычислите (3-2 5/9) : 1/12 = 2) (7/18+5/12-2/3) * 0,9 = 3) (1,35-4/15) * 3/13+2 5/12 = 4) 0,1: (2 1/15+1/3) =
Нет ответа
Решите уравнение (x^2-5x+7) ^2 - (x-2) (x-3) = 1
Нет ответа
дан параллелограм АВСD. O-точка пересечения диагоналей. Найдите векторы OD-OC, 2BO + DA, CD+DB+BA
Нет ответа
Главная » Информатика » Верна ли следующая программа? Если да, то сколько операторов она содержит, если нет, то почему: var x, y:integer; begin readln (y);; x:=0; if x>0 then; writeln (x, y); readln; end.
Регистрация Забыл пароль