Напишите программу вычисляющую...

Тема в разделе "Информатика", создана пользователем 1940, 16 фев 2010.

  1. 1940

    1940 New Member

    Напишите программу вычисляющую площадь квадрата. Стороны пользователь вводит склавиатуры
     
    1940, 16 фев 2010
    #1
  2. Nishtyak

    Nishtyak New Member

    var a,S:integer;
    begin
    S:=1;
    writeln('Введите сторону квадрата');
    readln(a);
    if a>0 then
    S:=S*a*a
    else
    writeln('Некорректные данные');
    writeln('Площадь квадрата равна ',S);
    end.
     
    Nishtyak, 16 фев 2010
    #2

Поделиться этой страницей

Наша группа