Найти квадрат числа A, если оно меньше 100

Категория: Delphi/Pascal
2011-09-06 23:37:32
code: #pascal
  1. program z_number;
  2. uses crt;
  3. var a:real;
  4. begin
  5.  writeln('Введите число');
  6.  readln(a);
  7.  if a<100 then
  8.  begin
  9.  writeln('Число меньше 100');
  10.  writeln('Его квадрат равен ',a*a:7:2);
  11.  end
  12.  else
  13.  writeln('Данное число больше или равно 100');
  14.  readln;
  15. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, число, квадрат числа