Ошибки в программе:
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 ; 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 ; WriteLn(s) ; WriteLn(m) ; WriteLn(d) End?, относящийся к категории
Информатика. По уровню сложности данный вопрос соответствует знаниям
учащихся 5 — 9 классов. Здесь вы найдете правильный ответ, сможете
обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С
помощью автоматического поиска на этой же странице можно найти похожие
вопросы и ответы на них в категории Информатика. Если ответы вызывают
сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.
-
- 0
-
Перепишите программу на Паскале, исправив ошибки:
Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
-
Комментариев (0)
-
- 0
-
Массив с другими скобкамиArray[-10..10]
-
Комментариев (0)
-
- 0
-
A:array[-10..10] of real;i:integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
-
Комментариев (0)
Вопрос школьника по предмету Информатика
Перепишите программу вычисления периметра и площади прямоугольника на языке Паскаль, исправив ошибки:
Program primer
Var a, b, s, p: integer;
Begin ;
Writeln(‘Введите стороны прямоугольника =’
ReadLn(a,b);
P=a+b;
S=a×b;
WriteLn(‘Площадь = ’s);
WriteLn(‘Периметр=’p);
End
Ответ учителя по предмету Информатика
Ответ:
program primer;
var a, b, s, p:integer;
begin
writeln (‘Введите стороны прямоугольника’);
readln (a, b);
p:=2*(a+b);
s:=a*b;
writeln (‘Площадь=’, s);
writeln (‘Периметр=’, p);
end.
Ответ оставил Гость
Program primer;
var a,b,s,m,d: integer;
Begin
ReadLn(a,b);
s:=a+b;
m:=a*b;
d:=a div b;
WriteLn(s);
WriteLn(m);
WriteLn(d);
End.
Пример:
48 15
63
720
3
Оцени ответ