Написать программу 4. компьютер перебирает четные числа до тех пор, пока сума их квадратов не превысит s. чему равна сумма квадратов? подсказка: начальное значение переменной цикла – 2. шаг изменения – 2 (перебираем четные числа). считаем сумму квадратов до тех пор пока она меньше или равна s. вывод на экран : результат: s = тест 1: исходные данные: s = 24 результат: s =56 тест 2: исходные данные: s = 85 результат: s =120

Yangelskiy Yangelskiy    2   15.06.2019 08:20    0

Ответы
beskrovnaja beskrovnaja  12.07.2020 14:42
Program pr_1; 
var i,s,sq:integer; 
begin 
readln(s); 
i:=2; 
while sq<=s do 
begin 
sq:=sq+sqr(i); 
i:=i+2; 
end; 
writeln('sq=',sq); 
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика