1. Информатика
  2. Найти сумму всех положительных

Найти сумму всех положительных чисел, не превышающих данного натурального числа n. программа на паскале.

лолололололпке лолололололпке    3   19.05.2019 23:50    0

Ответы
Ksyu130104 Ksyu130104  01.10.2020 00:18

Program Summa;

Uses Crt;

var n,s,i:longint;

begin

     clrscr;

      write('Введите N: ');

      readln(n);

      s:=0;

      for i:=1 to n do s:=s+i;

      writeln('Сумма всех положительных чисел меньших чем N:',s);       

      readkey;

end. 

  

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Andreyp2881 Andreyp2881  03.03.2019 08:58
Составьте блок-схему нахождения периметра прямоугольного треугольника! ​...
MrNikto523 MrNikto523  01.12.2020 16:04
По действиям решите при х=4: ((х 5)&(x 4)) ((x 2)&(x 3)) =? СУПЕР...
Мимиf Мимиf  01.12.2020 16:04
Повышенный уровень 8) Информационное сообщение объемом 4 Кбайта состоит из 2048 символов. Каков информационный вес символа этого сообщения? Сколько символов содержит алфавит,...
gtufifk gtufifk  01.12.2020 16:03
Добавьте к программе про зарплаты следующие функции: Top3() - Топ 3 самых бедных и самых богатых людей среднее() - Среднюю зарплату и имя человека ее получающего подоходный...
Light111111 Light111111  17.03.2019 08:40
Продолжите фразы а)модель это б)натурная (материальная) в)информационная модель...
gandzofficial gandzofficial  08.08.2019 08:20
Составить программу, которая вычисляет сумму вводимых с клавиатуры целых чисел до ввода отрицательного числа и выводит на экран значение вычисленной суммы....
omarova06 omarova06  24.05.2020 14:12
РЕШИТЬ ЗАДАНИЯ КУМИР ПО ИНФОРМАТИКЕ 5-3 5-4 5-5 5-6 ветвления, нужно использовать в алгоритме если то иначе РЕШИТЬ ЗАДАНИЯ КУМИР ПО ИНФОРМАТИКЕ 5-3 5-4 5-5 5-6 ветвления,...
dauren1mukumov dauren1mukumov  27.10.2020 15:24
Решите уравнение если уравнение имеет несколько корней, запишите больший из них....
irochkakarpenkp0bint irochkakarpenkp0bint  27.10.2020 15:24
Выбери правильный вариант: Mark give us a sandwich before she let us go to school. * used touse todidn t used todid used to​...
Виталий0003 Виталий0003  27.10.2020 15:24
*Тұстау кесу дәстүрі қалай орындалады?* Ойыңызды сипаттап жазыңыз, (50-70сөз көлемінде)...

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