//Задание №1
//Сумма и произведение двух чисел
var
a,b: integer;
begin
readln(a,b);
writeln('Сумма = ',a+b,' Произведение = ',a*b); по сторонам
end.
//Задание №2
//Площадь и периметр прямоугольника
var
a,b: integer;
begin
readln(a,b);
writeln('Площадь = ',a*b,' Периметр = ',(a+b)*2);
end.
// Задание №3
var
a,b,c,d: integer;
begin
write('введите a,b,c,d ');
readln(a,b,c,d);
writeln(a,'/',b,'+',d,'/',c,'=',a/b+d/c:0:2);
end.
Тестовое решение:
введите a,b,c,d 2 3 4 5
2/3+5/4=1.92
// Задание №4
var
r: real;
begin
write('введите радиус ');
readln(r);
writeln('Длина окружности радиуса ',r,' = ',2*pi*r:0:2);
writeln('Площадь круга радиуса ',r,' = ',pi*r*r:0:2);
end.
Тестовое решение:
введите радиус 5
Длина окружности радиуса 5 = 31.42
Площадь круга радиуса 5 = 78.54
// Задание №5
// Сумма цифр трехзначного числа
var
a,s: integer;
begin
readln(a);
while a<>0 do begin
s:=s+ a mod 10;
a:=a div 10;
end;
writeln('Сумма цифр',s)
end.