Выведите на печать любые K чисел арифметической прогрессии с заданной разностью прогрессии d и начальным значением d.
Приложения:
vikusik9415:
начальным значением a
Язык какой?
Ответы
Ответ дал:
1
var
i,k,a1,d:integer;
begin
Writeln('Введите количество, a1, d') ;
readln(k,a1,d);
for i:=1 to k do
writeln('a-',i,' = ',a1+(i-1)*d);
end.
i,k,a1,d:integer;
begin
Writeln('Введите количество, a1, d') ;
readln(k,a1,d);
for i:=1 to k do
writeln('a-',i,' = ',a1+(i-1)*d);
end.
Спасибо,она точно будет работать?
Точно будет работать, тут всё предельно ясно) Сейчас поясню.
var
i,k,a1,d:integer; //задаём тип переменных (целочисленные)
begin
Writeln('Введите количество, a1, d') ; //выводим на экран сообщение
readln(k,a1,d); //вводим количество чисел, значение a1 и d
for i:=1 to k do // выполняем цикл счёта каждого a(n) числа
writeln('a-',i,' = ',a1+(i-1)*d);
var
i,k,a1,d:integer; //задаём тип переменных (целочисленные)
begin
Writeln('Введите количество, a1, d') ; //выводим на экран сообщение
readln(k,a1,d); //вводим количество чисел, значение a1 и d
for i:=1 to k do // выполняем цикл счёта каждого a(n) числа
writeln('a-',i,' = ',a1+(i-1)*d);
Спасибо за объяснение)
Не за что)
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад