var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
Ответ дал: Гость
программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
21,24,27,30,33,36,39,42,45,48
Ответ дал: Гость
а-1; мама-4; весна-5 - количество букв
а-1; шея-2; мама-2; огурец-3 - количество гласных
а-0; шея-1; мама-2; огурец-3 - количество согласных
Популярные вопросы