Задачи на языке Паскаль
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.