Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
двдажажаддададащащ
Объяснение:
тьчьвьвлчлвлв
пере а який це класс?
program xxx;
var n, c, d, e, k : integer;
begin
wtite ('введите 3-х значное число n =');
readln (n);
c : = n div 100;
d : = (n div 10) mod 10;
e : = n mod 10;
k: = 100*e + 10*d + c;
if n = k then write ('палиндром') else write('не палиндром')
end.
qbasic
screen 7
input x
input y
input c
s=x+y/2*c
print "x+y/2*c="; s
end
Популярные вопросы