встановіть відповідність між функціями та їх призначенням: 1) StrToInt (значення рядкового типу)
2) Str ToFloat (значення рядкового типу)
3) FloatToStr (значення дійсного типу)
типу в значення рядкового типу
4) IntToStr (значення цілого типу)
а) перетворення значення цілого типу
б) перетворення значення рядкового
типу в значення цілочисельного типу
в) перетворення значення рядкового
типу в значення дійсного типу
г) перетворення значення дійсного​

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.