1)Program Primer;
var sum, a: real;
begin
sum:=0;
a:=0;
repeat
sum:=sum+a;
write('Введите число');
readln(a)
until a < 0
writeln (sum);
readln
end.
Какое число получится, если ввести ряд чисел 14, 2, 1, 7, -11?

Введите правильный вариант ответа:
2)Во Найти значение переменной, после выполнения программы?
var s,k: integer;
begin
s := 0;
for k := 1 to 13 do
s := s + k;
writeln(s);
end.

Введите правильный вариант ответа:

3)Program Primer;
var a, s: integer;
begin
s:= 0;
readln(a);
while a<>0 do begin
if (a mod 4 = 0) and (a mod 10 = 4) then
s := s + a;
readln(a);
end;
writeln(s);
end.
Какое число получится, если ввести ряд чисел 80, 12, 164, 104, 11, 0?

Введите правильный вариант ответа:

4)
Program Primer;
var sum, a: real;
begin
sum:=0;
a:=0;
repeat
sum:=sum+a;
write('Введите число');
readln(a)
until a <>0
writeln (sum);
readln
end.
Какое число получится, если ввести ряд чисел 6, 2, 13, 9, -11, 0?

Введите правильный вариант ответа
5)
Найти значение переменной, после выполнения программы?
var s,k: integer;
begin
s := 0;
for k := 1 to 11 do
s := s + 12;
writeln(s);
end.

Введите правильный вариант ответа:

6)Во Какое число получится, если ввести ряд чисел 46, 12, 16, 66, 11, 0?

Введите правельный ответ

​