Написать программу, вывод на экран последовательность из 10 чисел каждое из которых на 3 больше предыдущего.
5-9 класс
|
Program enot;
Var b,j,i: integer;
begin
read(b);
for j:=1 to 9 do
begin
b:=b+3;
writeln(b);
end;
end.
Другие вопросы из категории
о ромео и Джульетте 1)512 бит 2)256 бит 3) 128 байт 4) 64 байта
Помогите, пожалуйста, решить задачу!
Определить количество дней в первой декаде месяца, когда температура была выше средней.
Исходные данные: T - массив температуры
Промежуточные данные: i - порядковый номер
SUM - суммированная температура за 10 дней
SRT - средняя температура за 10 дней
Результирующие данные: K - количество дней с температурой выше средней
SUM:=SUM+T[i]
SRT:=SUM/10
K:=K+1, если выполняется SRT<T[i]
_______________________________
Program KTD
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;
разрешающая способность дисплея -800х600 пикселей
Читайте также
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
циклов for, while, repeat
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива