с командой выдает ошибку подскажите где. program q5;
var s,a,h,c: integer;
begin
writeln ('Введите два целых числа');
read (a,h,c);
s:=ah/2
writeln (a,'',h,'/',2,'=',s);
end.

Question

Информатика: с командой выдает ошибку подскажите где. program q5; var s,a,h,c: integer; begin writeln ( Введите два целых числа ); read (a,h,c); s:=a*h/2 writeln (a, * ,h, / ,2, = ,s); end.

Daniil129932 · Answer

Ну если просто сделать так, чтобы программа заработала, то вот:

Проверьте строку с read, там наверняка еще одна ошибка, но она не мешает программе работать, она кое-что другое делает

program q5;

var a,h,c: integer;

s : real;

begin

writeln ('Введите два целых числа');

read(a,h,c);

s:=a*h/2;

writeln (a,'*',h,'/',2,'=',s);

end.

с командой выдает ошибку подскажите где. program q5; var s,a,h,c: integer; begin writeln ('Введите два целых числа'); read (a,h,c); s:=a*h/2 writeln (a,'*',h,'/',2,'=',s); end.

с командой выдает ошибку подскажите где. program q5;
var s,a,h,c: integer;
begin
writeln ('Введите два целых числа');
read (a,h,c);
s:=ah/2
writeln (a,'',h,'/',2,'=',s);
end.