Ниже приведена программа, записанная на языке программирования Паскаль. var s, t, w: integer; begin - id1161692720200830 от nikitosik1296 30.08.2020 11:08

Question

Информатика: Ниже приведена программа, записанная на языке программирования Паскаль. var s, t, w: integer; begin readln(s); readln(t); readln(w); if (s 3) and (t 8) and (w 7) then writeln( ДА ) else writeln( НЕТ ) end. Было проведено 10 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t, w): (2, 4, 6); (3, 8, 7); (-9, 10, 14); (4, 7, 8); (7, 8, 3); (7, 3, 8); (-4, 6, 10); (4, -3, 8); (10, 3, -9); (2, 9, 10). Сколько было запусков, при которых программа напечатала

nikitosik1296 · Accepted Answer

var
i,z,y,x: integer; // объявление переменных
begin // начало программы
writeln('Введите числа: '); // Вывод сообщения
readln(x,y); // Ввод чисел х и у с клавиатуры
while i <> y do     // Повторять цикл пока i не будет равно y
begin   // Вход в цикл
z:=z+x;   // z = z + x (при первом шаге получается 0 = 0 + х)
i:=i+1; // Увеличиваем счетчик цикла на 1
end;     // Выход из цикла
write(z);   // Вывод z (произведение х и у)
end.     // Конец программы

MOGZ ответил