Помогите написать программу на Паскале. Найти
5-9 класс
|
и S арифметической прогрессии через цикл for.
var i,n,b,a,s:integer;
Begin
read(a,b,n);
s:=a;
for i := 1 to n do begin
a:=a+b;
s:=s+a;
end;
writeln(a,s);
End.
Другие вопросы из категории
противоположный.выведите на экран исходный и полученный массивы
Читайте также
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Создать файл а4, состоящий из 28 целых чисел. Найти среднее арифметическое всех чисел.
1. Написать программу нахождения произведения n чисел.