Паскаль 1.найти все двухзначные числа,такие,что если к сумме цифр числа прибавить квадрат этой суммы,то получится это число. 2.найти четырехзначное число,которое при делении на 133 дает в остатке 125,а при делении на 134 остаток 111.

Remka228 Remka228    2   30.05.2019 05:10    1

Ответы
jungkook010997 jungkook010997  29.06.2020 22:26
Program gt;
var i,p,s,q:integer;
begin
for i:=10 to 99 do
begin
p:=i;
s:=0;
while p>0 do
begin
q:=p mod 10;
p:=p div 10;
s:=s+q;
end;
if(s+s*s=i)then writeln(i);
end;
end.
2)
program gt;
var i:integer;
begin
for i:=1000 to 9999 do
begin
if(i mod 133=125)and(i mod 134=111)then writeln(i);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика