(Паскаль или Delphi)
Написать программу поиска двухзначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само
число.
Ответы
Ответ дал:
5
Program z_3;
var a,b,n,s, i: integer;
Begin
repeat
writeln ('Введите Ваше число');
readln (n);
if (n < 10) or (n > 99) then i:= 0
else i:= 1;
until i>0;
a:= n mod 100 div 10;
b:= n mod 10;
s:= (a+b)+sqr (a+b);
if s <> n then writeln ('Число не соотвествует условию')
else writeln ('Число ',s, ' соответствует условию');
End.
var a,b,n,s, i: integer;
Begin
repeat
writeln ('Введите Ваше число');
readln (n);
if (n < 10) or (n > 99) then i:= 0
else i:= 1;
until i>0;
a:= n mod 100 div 10;
b:= n mod 10;
s:= (a+b)+sqr (a+b);
if s <> n then writeln ('Число не соотвествует условию')
else writeln ('Число ',s, ' соответствует условию');
End.
ilczr:
программу можно проверить на числе 12
спасибо)
Program z_3;
var a,b,s, i: integer;
Begin
for i:=10 to 99 do begin
a:= i mod 100 div 10;
b:= i mod 10;
s:= (a+b)+sqr (a+b);
if s = i then writeln ('Число ',s, ' соотвествует условию')
end;
End.
var a,b,s, i: integer;
Begin
for i:=10 to 99 do begin
a:= i mod 100 div 10;
b:= i mod 10;
s:= (a+b)+sqr (a+b);
if s = i then writeln ('Число ',s, ' соотвествует условию')
end;
End.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад