Program N_1; //Название программы Var a,b,c:integer; //Переменные BEGIN Writeln('Введите длину и ширину прямоугольника'); //Вывести данную строку readln(a,b); //Считать a и b if a<b //Если a<b then begin //то найти периметр c:=(a+b)*2; Writeln('Пириметр= ',c) //и вывести его end else begin //Если a>b c:=a*b; //то найти площадь writeln('Площадь= ',c) //и вывести ее. end; END.
Интернет отнимает у нас все больше и больше времени . Мы слишком много сидим за монитором компьютера и особо это ощущается на наших детях . Они уже не играет в снижки, не катаются с горок, не ездят на роликах или же играют и ездят но значительно меньше чем например наши Мамы, папы, бабушки, и дедушки . Мы уде не умеем сами думать, а зачем? За нас все решит интернет. И так, в заключении хотелось бы сказать, что интернет это хорошо но если в меру, не стоит представлять себе всемирную сеть в виде старшего брата и лучшего друга, не стоит погружаешься в вертикальный мир, но и забывать про то что существует интернет тоже не стоит, он часто Вот так! Только исправишь ошибки в грамматике) Ок?
Program N_1; //Название программы
Var a,b,c:integer; //Переменные
BEGIN
Writeln('Введите длину и ширину прямоугольника'); //Вывести данную строку
readln(a,b); //Считать a и b
if a<b //Если a<b
then begin //то найти периметр
c:=(a+b)*2;
Writeln('Пириметр= ',c) //и вывести его
end
else begin //Если a>b
c:=a*b; //то найти площадь
writeln('Площадь= ',c) //и вывести ее.
end;
END.