С1. Составить алгоритм

+ 0 -

Asseldiplomat

06 апр. 2014 г., 5:44:20 (10 лет назад)

Более красивый вариант) 

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.

+ 0 -

LebronKing

06 апр. 2014 г., 6:45:07 (10 лет назад)

Какой язык?

+ 0 -

Mandzyukn

06 апр. 2014 г., 8:03:03 (10 лет назад)

не знаю но информатика 9 класс

+ 0 -

Yana0119

06 апр. 2014 г., 10:31:11 (10 лет назад)

Ты даже не знаешь какой язык вы изучаете?)

+ 0 -

Hfgt

06 апр. 2014 г., 11:27:03 (10 лет назад)

информатика