Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.05 Obsah obdélníku

MENU

01.05 Obsah obdélníku

Zadání:
Sestavte program, ze zadaných stran obdélníku a,b vypočte jeho obsah.
Řešení:
Obsah obdélníku se vypočte podle vzorce S=ab
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,obsah:real;

begin

   write('Zadejte stranu a: ');
   readln(a);
   write('Zadejte stranu b: ');
   readln(b);

   obsah:=a*b;
   writeln('Obsah obdelniku = ',obsah:0:3);

   readln;

end.
program ke stažení