Wlad967857
?>

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

Информатика

Ответы

olga0909196323

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

rebet61
smartschoolfili6
anton1969026203
Zladthesecond577
Маргарита595
edvlwork15
grishin
mariy-y34
Dmitrievna405
lsyrbu
anastasiaevent4
oksit
xarchopuri22
mikhail
Gennadievna bessonov