Регистрация
tryx1
02.10.2020 05:12
Информатика
Есть ответ 👍

Вводится возрастающая последовательность целых, не равных нулю чисел. Ноль – признак конца ввода. Определить, сколько в ней различных чисел, кратных пяти. Признак конца ввода не учитывать. При решении задачи допустимо использование массивов. Написать программу на паскале.

232
333
Посмотреть ответы 2

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

arhived1
arhived1
4,5(14 оценок)

p/all gl tyrpion ^type^ all txt.file

g kall %(type) all.txt dipon sre rec^all^

an %~type~ kaunt name tir 1

roslanova051
roslanova051
4,4(57 оценок)
{$n+} uses crt; procedure l(n,first,step: integer); var   i,s,current: integer;   p: double; begin   p: =1;   s: =0;   current: =first;   for i: =1 to n do begin       s: =s+current;       p: =p*current;       write(current,',');       current: =current+step       end;   writeln(' : s=',s,', п=',p) end; var   n: integer; begin   clrscr;   write('n=');   read(n);   l(n,1,2);   l(n,2,2);   l(n,3,3);   l(n,4,4);   readkey end.

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