Question

Помогите пожалуйста!
Нужно решить в виде блок-схемы(как на фото). Для каждого задания отдельно

1. Найти объём параллелепипеда.

2. Заданы стороны треугольника, проверить является ли он прямоугольным.

3. Поиск чисел кратных 2, но не кратных 5, в промежутке от 100 до N.

Answer 1

Смотри картинки
1) Вводим рёбра параллелепипеда

Answer 2

А на Паскале сможете?

Answer 3

var a,b,c,v: real;
begin
write('Введите рёбра параллелепипеда: ');
readln(a,b,c);
V:=a*b*c;
writeln(V)
end.

Answer 4

var a,b,c: real;
begin
write('Введите стороны треугольника: ');
readln(a,b,c);
if (sqr(a) + sqr(b) = sqr(c)) or (sqr(b) + sqr(c) = sqr(a)) or (sqr(a) + sqr(c) = sqr(b)) then writeln ('Треугольник является прямоугольным')
else writeln('Треугольник не является прямоугольным')
end.

Answer 5

var n,i: integer;
begin
write('Введите число (N>=100): ');
readln(n);
for i:=100 to n do
if (i mod 2 = 0) and (i mod 5 <> 0) then writeln(i)
end.

Answer 6

Спасибо