Программы решений задач на языке Паскаль
Найдите условие задачи в одном из разделов:
линейный алгоритм,
разветвляющийся алгоритм,
циклический алгоритм.
Воспользуйтесь также поиском по сайту (в правом верхнем углу).
На сайте автора Решу Паскаль & Python можно прочитать статьи с разборами решений большого количества задач, в том числе задач ЕГЭ по информатике.
С клавиатуры вводятся два натуральных числа – длины сторон прямоугольника. Написать программу вычисления и вывода на экран площади и периметра прямоугольника.
Программа
Var a,b,s,p:integer;
begin
readln(a,b);
p:=2*(a+b);
s:=a*b;
writeln('площадь = ',s);
writeln('периметр = ',p);
end.
Дано натуральное число n. Ответить на вопросы:
а) Число больше 10?
б) Число кратно 3?
Программа
Var n:integer;
begin
readln(n);
if n>10 then writeln('число больше 10') else writeln('число не больше 10');
if n mod 3=0 then writeln('число кратно 3') else writeln('число не кратно 3');
end.
Дано целое число A. Вывести на экран в столбец 30 раз число A.
Программа
var i,a:integer;
begin
readln(a);
for i:=1 to 30 do
writeln(a);
end.