Информатика!Написать программу в Паскале! Задано целое - вопрос №18628870 от ezek5 30.05.2022 23:45

Question

Информатика: Информатика!Написать программу в Паскале! Задано целое положительное число N 1. Вычислить сумму четных целых чисел вдиапазоне [1..N]. Важно! Для решения задач использовать цикл с предусловием! ​

ezek5 · Answer

var   n,s,i : integer;begin   s:=0; i:=0;   write( N = ); read(n);   while n i do      begin  i:=i+1;  s:=s+i;      end;   writeln( Сумма , n, чисел = ,s);end....