//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}
Объяснение:
Не придется старику
В тишине попить чайку.
Я не бегаю к врачу.
Я сама его лечу.
Лучше, мама, не пищи,
Ты мне няньку поищи!
Не послушал Зайка папу.
Отдавили Зайке лапу.
Что случилось?
Что за крик?
Это тонет ученик!
Он упал с обрыва в реку —
человеку!
Рады зайчики и белочки,
Рады мальчики и девочки.
Сверху солнышко печет,
А внизу река течет.
Я сегодня сбилась с ног -
У меня пропал щенок.
Мы не ели, мы не пили,
Бабу снежную лепили.
Раньше всех петух встаёт,
Оглушительно поёт.
Час настал! Вставать пора!
Начинаем день с утра!