Информатика!Написать программу в Паскале! Задано - вопрос №118628193 от Selima2005 12.11.2021 08:09

Question

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

Selima2005 · 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....