Регистрация
sasa26597
03.01.2020 21:12
Информатика
Есть ответ 👍

8.Розгадайте кросфорд. До ть як омога бистріше
​

247
259
Посмотреть ответы 1

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

оскарик3929
оскарик3929
4,7(46 оценок)
Var a,b,c,d,x,y: byte; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); write('d = '); readln(d); write('x = '); readln(x); write('y = '); readln(y); writeln((a+d)*100+(b+x)*10+c+y); end. var a,b,c: integer; begin write('a = '); readln(a); c: =a; while c< > 0 do     begin     b: =b*10+(c mod 10);     c: =c div 10;     end; if a=b then writeln(a - ' палиндром') else writeln(a,' не является палиндромом') end.

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