Регистрация
ksusa8613
10.06.2020 00:25
Информатика
Есть ответ 👍

2. Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer;
Begin
s := 0;
for k := 6 to 10 do
s := s+10;
writeln(s);
End.

121
156
Посмотреть ответы 2

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

андрей2096
андрей2096
4,4(31 оценок)

Цикл выполнит 5 итераций, k = 6, 7, 8 ,9 , 10. Каждую итерацию к s прибавляется 10 (изначально s = 0), 10 * 5 = 50

Следовательно, на экране мы увидим число 50

DariaShistad18
DariaShistad18
4,4(48 оценок)

var n,n1,n2,n3: integer;

begin;

readln (n);

n1: =n mod 10;

n: =n div 10;

n2: =n mod 10;

n3: =n div 100;

if (n1=n2) and (n2=n3) then writeln ('y') else writeln ('n');

end.

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