Регистрация
nikzhukov989
25.09.2020 03:20
Информатика
Есть ответ 👍

ответьте на эти во до 15 числа, буду очень блпгодарен.
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.

172
342
Посмотреть ответы 1

Ответы на вопрос:

555Sofia555
555Sofia555
4,7(31 оценок)
После выода данных в массив: sum: =0; b: =0; c: =0; for i: =1 to 50 do begin if a[i] mod 5=0 then sum: =sum+a[i]; if (a[i] mod 2< > 0) and (a[i]< 0) then b: =b+a[i]; if abs(a[i])then c: =c+a[i]; end; writeln(sum,' ',b,' ',c); последнее условие это модуль а[i] меньше квадрата i?

Популярно: Информатика