begin clrscr; repeat Write('Выберите фигуру (1-квадрат, 2-прямоугольник)'); Readln(n);
case n of 1: begin write('Сторона квадрата='); readln(a); Write('S=', a * a); end; 2: begin write('Стороны прямоугольника='); readln(b, a); Write('S=', b * a); end; else exit; end; until false; end.
Информатика-это наука,изучающая виды информации её получения,хранения и передачи. География-это наука,о природе нашей планеты и о законах,по которым она живет и развивается. Фонетика-это раздел науки о звуках русского языка Ботаника-это раздел науки о изучении растений Имя сущ-это самостоятельная часть речи,которая отвечает на вопросы кто? что? и обозначает предмет Глагол-это самостоятельная часть речи,которая отвечает на вопросы что сделать?что делать? и др. обозначает действие предмета Тяж.промышленность-это группа отраслей промышлености,производящих преимущественно средства произовдства. Легкая промышленность-это отрасль народного хоз.,производящая потребительские товары.
var
b, a: real;
n: integer;
begin
clrscr;
repeat
Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
Readln(n);
case n of
1:
begin
write('Сторона квадрата=');
readln(a);
Write('S=', a * a);
end;
2:
begin
write('Стороны прямоугольника=');
readln(b, a);
Write('S=', b * a);
end;
else exit;
end;
until false;
end.
География-это наука,о природе нашей планеты и о законах,по которым она живет и развивается.
Фонетика-это раздел науки о звуках русского языка
Ботаника-это раздел науки о изучении растений
Имя сущ-это самостоятельная часть речи,которая отвечает на вопросы кто? что? и обозначает предмет
Глагол-это самостоятельная часть речи,которая отвечает на вопросы что сделать?что делать? и др. обозначает действие предмета
Тяж.промышленность-это группа отраслей промышлености,производящих преимущественно средства произовдства.
Легкая промышленность-это отрасль народного хоз.,производящая потребительские товары.