Информатика!Написать программу в Паскале! Задано - вопрос №18628368 от LEVATOR 21.03.2022 07:24

Question

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

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