Найти все трех значные числа где сумма первого и второго равна третьей В ПАСКАЛЕ С
Найти все трех значные числа где сумма первого и второго равна третьей В ПАСКАЛЕ СДЕЛАТЬ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Гость
Ответ(ы) на вопрос:
Гость Program zadanie;
Var a,b,c,i:integer;
Begin
For i:=100 To 999 Do
begin
a:=i div 100;
b:=(i div 10) mod 10;
c:=(i mod 100) mod 10;
If (a+b)=c Then Writeln(i);
end;
End.
Не нашли ответ?
Похожие вопросы