Регистрация
katyakiseleva3
30.04.2022 11:04
Информатика
Есть ответ 👍

Паскаль: ввести переменные a, b, c (целые числа), если a> b, то c=a-b, если a вывести с

203
326
Посмотреть ответы 1

Ответы на вопрос:

trol77
trol77
4,7(30 оценок)
Var   a, d: real;   i, n: integer; begin   write('введите значение первого члена прогрессии, a=');   readln(a);   write('введите значение разности прогрессии, d=');   readln(d);   write('введите количество членов прогрессии, n=');   readln(n);   writeln('значения членов прогрессии: ');   for i : = 1 to n do       write(a + d * (i - 1), ' ') end. тестовое решение: введите значение первого члена прогрессии, a=4 введите значение разности прогрессии, d=2 введите количество членов прогрессии, n=6 значения членов прогрессии: 4 6 8 10 12 14

Популярно: Информатика