Регистрация
shkola56
23.04.2023 01:56
Информатика
Есть ответ 👍

Вычислите количество всех натуральных чисел в интервале от А до В, которые делятся на C без остатка.
Input.txt: А, В, С (1<=A, B, C<=10^{5}
Uotput.txt: в выходном файле записывается число всех N значений ряда, делящихся на С без остатка

167
313
Посмотреть ответы 1

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

Mei29
Mei29
4,4(73 оценок)
//это можно стереть. если в n есть 0 то тогда программа выведет no. program z1; var b,c,d,i,s,l: integer;     a: string; begin read(a); b: =length(a); s: =strtoint(a); c: =0; for i: =1 to b do  for i: =1 to b do  begin  d: =strtoint(a[i]);   if d=0 then l: =1;   end; if l=0 then begin                  for i: =1 to b do                      for i: =1 to b do                      begin                      d: =strtoint(a[i]);                       if (s mod d)=0 then c: =c+1;                       end;             end            else            write('no'); if (l=0) and (c=b) then write('t'); if (l=0) and (c< > b) then write('p'); end.

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