Выберите ответ в котором соответствие установлено верно. а) компас б) пластинка в) перфокарта г) свеча светодиод, usb-накопитель, cd-диск, gps-навигатор. : ) кто поставлю лучший ответ)
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
Type St = record iquo: integer; {целая часть} irem: integer; {числитель дроби} idiv: integer; {знаменатель дроби} end;
function iMax(i, j: integer): integer; begin if i > j then iMax := i else iMax := j end;
function iMin(i, j: integer): integer; begin if i < j then iMin := i else iMin := j end;
function FR(i, j, k: integer): St; var nmax, nmin: integer;
begin nmax := iMax(iMax(i, j), k); nmin := iMin(iMin(i, j), k); with Result do begin iquo := nmax div nmin; idiv := nmin; irem := nmax mod nmin end end;
var a, b, c: integer; r: St;
begin write('Введите через пробел три целых числа:'); readln(a, b, c); r := FR(a, b, c); writeln('Результат работы функции: ', r.iquo, ' целых и ', r.irem, '/', r.idiv) end.
Тестовое решение:
Введите через пробел три целых числа:343 253 37 Результат работы функции: 9 целых и 10/37
б) сиди диск.
в) накопитель
г) светодиод
могу ошибаться, но может так)