обчислення суми чисел які діляться на 3
10-11 класс
|
var
s,n,i:integer;
begin
write('Введите количество чисел');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*3;
writeln(s);
end.
Другие вопросы из категории
люди имеют голубые глаза
1. Пользователь вводит неотрицательное однозначное число A. Написать программу:
вычисляющую в случае ввода 1 - площадь круга с радиусом A,
вычисляющую в случае ввода 2 - площадь квадрата со стороной A,
вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной A,
выдающую сообщение «нужно ввести число 1, 2, 3» в остальных случаях.
проектов различных домов. Было решено начать работу с эскизов
домов, нарисованных на чертежной бумаге формата A1 (594 × 841 мм).
После оцифровки каждого эскиза получили файлы изображений в
формате .bmp. Выбери знак, устанавливающий отношение между
размерами файлов.
1) 1 > 2; 2) 1< 2; 3) 1 = 2; 4) Размеры файлов
невозможно сравнить.
Читайте также
Ввод чисел пользователем заканчивается после ввода цифры 0.