1. Рассмотри рисунок. Какую информацию можно полу- Чить по этому рисунку? Что ты знаешь об использовании
солнечной и ветровой энергии в Казахстане? Набери
ответ в текстовом редакторе

Question

Информатика: 1. Рассмотри рисунок. Какую информацию можно полу- Чить по этому рисунку? Что ты знаешь об использовании солнечной и ветровой энергии в Казахстане? Набери ответ в текстовом редакторе

monyachina1081p08tm7 · Accepted Answer

Uses crt;
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.

MOGZ ответил