Задачи на языке Паскаль

17.10.2012 «Задача на применение целочисленного деления»

17.10.2012

Program N1;

var x,z,n: Integer;

begin

writeln(‘введите число x’);

readln(x);

z:=x div 100;

n:=100 — x mod 100;

writeln(‘число целых сотен-’,z);

writeln(‘необходимо до целой сотни-’,n);

end.

10.10.2012 г.

«Нахождение площади квадрата по заданной стороне»

Program M1;

var a,S: Integer;

begin

writeln (‘введите сторону квадрата’);

readln (a);

S:=a*a;

writeln(‘площадь квадрата =’,S);

end.

09.10.2012 г.

«Код программы для вывода информации на экран»

Program Z1;

var x: Integer;

begin

writeln (‘введите число’);

readln (x);

writeln (‘Вы ввели_’, x);

end.