Придумайте та запишіть у зошит 10 істинних і 10 хибних висловлювань

Истинные: 1. земля круглая 2. лето наступает после весны 3. когда идет дождь - земля наполняется влагой 4. москва - столица россии 5. если горит красный сигнал светофора - оставайся на месте 6. сахар сладкий 7. арбуз - это ягода 8. лимон кислый 9. осенью опадает листва на деревьях 10. 1 января начинается новый год. ложные высказывания: 1. коровы летают 2. 2+2=5 3. информатика - наука о рыбах 4. глаза - органы слуха 5. киев - столица ирландии 6. год заканчивается летом 7. когда наступает ночь - светит солнце 8. солнце вращается вокруг земли 9. черепаха - самое быстрое животное в мире 10. соль горькая 

на паскале:

 

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.