Придумайте та запишіть у зошит 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. соль горькая 

ха-ха-ха)) учебник по информатике за 10

там все

программа №4

program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

 

 

 

потхоньку буду дополнять, не так все быстро)) 

 

 

№5

 

 

program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end. 

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.