Регистрация
Дашулька150504
01.03.2020 22:07
Информатика
Есть ответ 👍

Напишите программу для pascalabc ! дано 5-значное число. если оно палиндром, то вывести 0, если нет-1

297
365
Посмотреть ответы 3

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

Апофис
Апофис
4,8(20 оценок)
// pascalabc.net 3.0, сборка 1156 от 30.01.2016 begin   var s: =readinteger('n=').tostring;   if s=s.inverse then writeln(0) else writeln(1) end.
julianna19
julianna19
4,5(88 оценок)
Var     i: string; begin   writeln('введите число');   readln(i);   if ((i[1]=i[5]) and  (i[2]=i[4])) then writeln('0') else writeln('1'); end.
ЮляЯяя1111
ЮляЯяя1111
4,8(61 оценок)
Vari, max, y: integer; begin writeln('вводите последовательно числа.'); writeln('для завершения ввода введите ноль.'); writeln(''); max : = 0; y : = 0; repeat y : = y + 1; write(y, ' число: '); readln(i); if (y = 1) then max : = i; if (i = 0) then break; if (i > max) then max : = i; until i = 0; writeln(''); writeln('максимальное число: ', max); writeln(); end.

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