Инфаааа!!! Срочно!!!!!! 1. Найти периметр произвольного четырехугольника, длины всех сторон вводятся с клавиатуры.
2.
Дано расстояние L сантиметрах (L- целое число). Найти число полных метров в нем.
KOtikwe:
паскаль?
Да
Напишите решение / сфоткайте! Очень нужно……
Ответы
Ответ дал:
1
Ответ:
Объяснение:
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).
1)Вести два ненулевых числа. Найти их произведение и частное
2)Найти сумму и произвеление двух натуральных чисел, заданных случайным образом из промежутка
[0;1000).
1) var a, b, c,d: real;
begin
writeln ('Введите два числа ');
read (a, b);
c:=a*b;
d:=a/b;
writeln ('Произведение чисел ', c);
write ('Частное чисел ',d);
end.
begin
writeln ('Введите два числа ');
read (a, b);
c:=a*b;
d:=a/b;
writeln ('Произведение чисел ', c);
write ('Частное чисел ',d);
end.
2) var a, b, c,d: real;
begin
a:=random(1000);
b:=random(1000);
writeln ('Два случайных числа ', 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.
А почему переменных 4?
две переменные это числа и две переменные это значение суммы и произведения
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад