Question

Сколько ошибок допущено в программе? Найдите все ошибки и исправьте их (В Паскале)
Program zadacha;
Var a: integer;
begin
writeln('введите число а')
readln(a);
if a>0 then a:=a+1;
writeln (' Полученное число ' a)
end.

Answer 1

Две ошибки

Program zadacha;

Var a: integer;

begin

writeln('введите число а'); // Точка с запятой

readln(a);

if a>0 then a:=a+1;

writeln (' Полученное число ', a) // запятая

end.

Answer 2

Ответ:

Program zadacha;

Var a: integer;

begin

writeln('введите число а'); - точка с запятой в конце оператора

readln(a);

if a>0 then a:=a+1;

writeln (' Полученное число ', a); - запятая перед выводом значения переменной и точка с запятой в конце оператора

end.