4 года назад

Составьте программу, которая вычисляет сумму тридцати первых натуральных чисел и выводит на экран результат.

1 ответ:

Dmitriyi4 года назад

0 0

Два способа в одном операторе))

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln(Range(1,30).Sum,' ',(1+30)*30 div 2)
end.

Пример
465 465

Читайте также

дан одномерный массив.найти сумму элементов массива,значение которых падает в отрезок [2;5] (Массив предварительно заполнить с к

Olga Ch

Program mm;

var a: array [1..10] of real; i: integer; s: real;

begin

for i:=1 to 10 do begin

Writeln("Введите элемент номер ",i); read(a[i]);

end;

for i:=1 to 10 do

if (a[i]>=2) and (a[i]<=5) then s:=s+a[i];

Writeln(s); readln;

end.

Если что, пиши в личку.

0 0

4 года назад

Составьте программу вычисляющую сумму S=2+4+6...+20 В Pascal, пожалуйста

tima323630

program summa;

var

s, i: integer;

begin

for i := 2 to 20 do

if i mod 2 = 0 then

S := S + i;

writeln('Сумма = ',s);

end.

0 0

4 года назад

Даны целые числа a b m n. числа a и b , m n умножаются и суммируются. суммы этих чисел выводятся в порядке убывания , а результа

давронжон

Program qq;
vara,b,m,n,sum,umn,sum1,umn1:integer;
BEGINwrite('Введите 4 числа: '); readln(a,b,m,n);
sum:= a+b;sum1:= m+n;
umn:= a*b;umn1:= m*n;
writeln('Сумма a и b = ',sum);writeln('Сумма m и n = ',sum1);
writeln('Произведение a и b = ',umn);writeln('Произведение m и n = ',umn1);
END.

0 0

1 год назад

Какие действия нужно выполнить перед началом набора текста в программе Ворд?

ekventorvad

1. Включить компьютер.
2. Подключить клавиатуру.
3. Войти в Word.
4. Сесть прямо и удобно.
5. Начать печатать.

0 0

4 года назад

Прочитать ещё 2 ответа

Папка СЕТЬ в операционной системе Windows содержит

Елена5588

Смотря если много компов то файлы локальные , lochost вроде и файлы которые выложили в сеть с главного клмпа

0 0

4 года назад