Регистрация
prokopchukalex
25.01.2021 03:27
Информатика
Есть ответ 👍

Paskalabc. вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. всего будет введено не больше 100 чисел. посчитать количество единиц в этой последовательности, количество двоек, количество троек и так далее (должно выводиться всегда 9 чисел).

277
395
Посмотреть ответы 2

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

soz2019oy63um
soz2019oy63um
4,4(7 оценок)
Uses system; var in, out : text;           line, col : integer;           k : integer; begin   assign(in, "nome.in");   assign(out, "nomer.out");   reset(in);   rewrite(out);   read(in, line, col, k);   if k < col * line theb   begin     write(out, (k - 1) div col + 1, ' ', (k - 1) mod col + 1);   end   else       write(out, "слишком большое число")   end;   close(in);   close(out);   end.
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

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