Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Комплектующие компьютера
Объяснение
Это общее название деталей компьютера
const
a: array[1..6]of longint=(7,4,10,6,5,3);
var
i: longint;
begin
for i: =1 to 6 do write(9.8*a[i]*1200,' ');
writeln;
end.
n: integer;
readln(n);
if (n mod 10)=(n div 100) then
writeln('палиндром')
else
writeln('не палиндром');
Популярные вопросы