ответьте пожайлуста
СИНТАКСИЧЕСКИЕ ОШИБКИ В ПАСКАЛЕ
1. Выберите программу, которая не соответствует синтаксису структуры
Паскаль-программ.
А. Program A; Const d=5; var b,c:real; begin read(b,c); writeln(b*c) end.
B. Program A; var b,c:real; begin readln(b,c); End.
C. Program A; Const d=5; var b,c:real; begin End.
D. Program A; Var b,c; Const d=5; begin b:=2*d End.
E. Program A; begin writeln(‘b=’) end.
2. Укажите программу, в которой есть неописанная переменная.
A. Program A; var b,c:real; Begin readln(b,c); writeln(b-c*c) end.
B. Program A; var S:real; i:integer; begin S:=0; i:=1; repeat S:=s+1/i; i:=i-1 until
i C: Program A; var S:real; i:integer; begin S:=0; i:=1; repeat S:=s+1/i; i:=i-1 until
i<1 end.
D. Program A; begin writeln(‘b’) end.
E. Program A; var b:real; begin read(b); end.
3. Укажите тип синтаксической ошибки, имеющейся в данной
программе:
Program A; const d=5; var a:real; i:integer; begin a:=0; i:=1; if a write(a) end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверная константа
4. Укажите тип синтаксической ошибки, имеющейся в данной
программе: Program 1A; var b:real; begin read(b); b:=b; end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверный идентификатор
E. Неверная константа
F. Ожидалась;
5. Укажите тип синтаксической ошибки, имеющейся в данной
программе:
Program A; var a1:real; begin read(a1); a1:=a1+0,1; end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверный идентификатор
E. Неверная константа
6. Укажите программу, в которой результат не выдается.
A. Program A; var b:real; begin read(b); writeln(b) end.
B. Program A; var b:real; begin read(b); writeln(b); end.
C. Program A; var b:real; begin b:=1; write(2*b-3) end.
D. Program A; var b,c:real; begin read(b); if b>0 then c:=b else c:=-b end.
E. Program A; var b,c:real; begin read(b,c); b:=b+c; writeln(b) end.
var a,b,c,s:integer;
begin
read(a);
read(b);
read(c);
s:=(a+b+c) mod 3 mod вробная часть от деления
end;
var post,Bes:real;
begin
read(post);
Bes:=post-100; (кг)=(рост(см) - 100
end;
var m,n,k:integer;
begin
read(m);
read(n);
read(k);
o:=m*2+n*0+k*1
end;
var x:integer;
begin
read(x);
if x mod 2 =0 then write('чот') else write('нечет');
end;
var x:integer;
begin
read(x);
if x mod 10=7 then write('на конце 7') else write('не 7');
end;
///write(x) выводит значение переменой;