<span>1. Каким служебным словом начинается программа? B) begin
2. Какое слово используют для описания переменных величин в программе? B) var
3. Каким символом разделяют команды в программе? A) точка с запятой;
4. Какие из перечисленных слов могут быть именами пользователя? D) Е6.
5. Какую команду используют для ввода данных? A) read;
6. Какие из приведенных команд вывода данных записаны правильно? C) write(‘y =’,y);
7. Данные логического типа можно описать как: A) boolean;
8. Каков результат вычисления выражения 45 mod 4? A) 1; B) 2; C) 3; D) 4. </span><span>
25 должно быть
9.В скольких позициях будет выведено значение переменной х при использовании формата вывода х:6:3? D) 6.
10. Какие из записей закона всемирного тяготения (F = ) на языке программирования являются правильными?B) F:=g*m1*m2/(r*r);
11. Данные, значения которых являются действительными числами можно описать как: B) double; </span>
(смотрите рисунок)
AC=ADEC=3+1+1=5
ответ 2) 5
program raf105;
var
a,b,c,sum,pro: real;
begin
write('Введите 3 вещественных числа: ');
readln(a,b,c);
sum:= a+b+c;
pro:= a*b*c;
if sum > pro
then writeln('Сумма больше произведения')
else if pro > sum
then writeln('Произведение больше суммы')
else writeln('Сумма и произведение равны');
end.
<h3><u>PascalABC 3.4.2</u></h3>
Program primer;
Var
i:integer;
begin
i:=-4;
repeat
writeln(i,' ',3*i);
i:=i+2;
until i>4;
end.
Var
sum, count, t : integer;
begin
sum := 0; count := 0;
while not eoln do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
если количество элементов указано
var
sum, count, t, n, i : integer;
begin
sum := 0; count := 0;
read (n);
for i := 1 to n do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.