Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 13:24
618
Перепишите программу на языке Паскаль, исправив ошибки: Program primer Var a,b: integer; Begin ; ReadLn( a,b); s=a+b; m:=a*b; d:=a:b; WriteLn(s); WriteLn(m); WriteLn(d) End
1
ответ
Ошибки в программе:
Program primer - не хватает точки с запятой
Var a,b: integer;
Begin ; - не ошибка, необязательная точка с запятой
ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками
s=a+b; - не хватает двоеточия в :=
m:=a*b;
d:=a:b; - переменная d не была описана; деление - это /
WriteLn(s);
WriteLn(m);
WriteLn(d)
End - не хватает точки.
Исправленная программа:
Program primer;
Var a, b: integer;
d: real;
Begin
ReadLn(a, b);
s := a + b;
m := a * b;
d := a / b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.
Program primer - не хватает точки с запятой
Var a,b: integer;
Begin ; - не ошибка, необязательная точка с запятой
ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками
s=a+b; - не хватает двоеточия в :=
m:=a*b;
d:=a:b; - переменная d не была описана; деление - это /
WriteLn(s);
WriteLn(m);
WriteLn(d)
End - не хватает точки.
Исправленная программа:
Program primer;
Var a, b: integer;
d: real;
Begin
ReadLn(a, b);
s := a + b;
m := a * b;
d := a / b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.
0
·
Хороший ответ
4 апреля 2023 13:24
Остались вопросы?
Еще вопросы по категории Информатика
Сколько трехзначных чисел можно записать с помощью цифр 2.4.6.8 при условии что в записи числы не должно быть одинаковых цифр...
сколько секунд потребуется обычному модему, передающему сообщения со скоростью 28800 бит/с чтобы передать цветное растровое изображение размером 640x4...
Выберите среди перечисленных чисел те, которые являются верной записью числа 100(десятеричная система) в какой-либо системе счисления 1 37(во...
Клавиатурный шпион – это:...
Расширения .txt, .rtf, .doc имеют: (Расширение определяет принадлежность к какому-либо типу файлов и пишется после названия файла) исполняемые файлы;...