Инфаааа!!! Срочно!!!!!! 1. Найти периметр произвольного четырехугольника, длины всех сторон вводятся с клавиатуры.
2.
Дано расстояние L сантиметрах (L- целое число). Найти число полных метров в нем.
2.
Дано расстояние L сантиметрах (L- целое число). Найти число полных метров в нем.
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
1)
var a,b,c,d,p: integer;
begin
writeln ('длины сторон четырёхугольника равны');
read (a, b, c, d);
p:=a+b+c+d;
write ('периметр четырёхугольника = ', p);
end.
2)
var l,a:integer;
begin
write ('сантиметры ');
read (l);
a:=l div 100;
write ('метры ');
write (a);
end.
1)Вести два ненулевых числа. Найти их произведение и частное
2)Найти сумму и произвеление двух натуральных чисел, заданных случайным образом из промежутка
[0;1000).
begin
writeln ('Введите два числа ');
read (a, b);
c:=a*b;
d:=a/b;
writeln ('Произведение чисел ', c);
write ('Частное чисел ',d);
end.
begin
a:=random(1000);
b:=random(1000);
writeln ('Два случайных числа ', a, ' ', b);
c:= a+b;
d:=a*b;
writeln('Их сумма равна ',c);
write ('Их произведение равно ',d);
end.