Информатика!Написать программу в Паскале! Задано - вопрос №18627968 от Vladimirhdjdn 02.11.2022 10:49

Question

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

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