определить цифры С, Т и О и вывести их на экран.
5-9 класс
|
cto+cot=toc
CTO=C*100+T*10+0
C=4
T=9
O=5
---
Ну я, например, в паскаль условие вбила. Если нужен код:
uses crt;
var a,c,t,o:integer;
begin
for a:=100 to 999 do
begin
t:=a div 100;
o:=a div 10 mod 10;
c:=a mod 10;
if (100*c+10*t+o+100*c+10*o+t)=a
then writeln(a);
end;
end.
---
Другие вопросы из категории
Поясните ответ! Пожалуйста, нужнаюсь в помощи!!!
информации и на сколько?
ПЛИИИИЗЗЗЗЗ.....HЕLP(((
Читайте также
есть ли в массиве одинаковые элементы и
вывести их на экран.
Пример:
Вход 1212
На выходе 2
Я сделал:
program Test;
uses Crt;
var A,B,C,D,E: integer;
begintextbackground(8);
clrscr;
textcolor(15);
write('Введите 4-х значное число: ');
textcolor(13);
read(A);
C:=A div 1000;
B:=A div 100;
B:=A mod 10;
D:=A mod 100;
D:=A div 10;
E:=A mod 10;
E:=A mod 10;
А как дальше не знаю =(