Предмет: Информатика,
автор: chicken7000
Помогите пожалуйста!
Нужно решить в виде блок-схемы(как на фото). Для каждого задания отдельно
1. Найти объём параллелепипеда.
2. Заданы стороны треугольника, проверить является ли он прямоугольным.
3. Поиск чисел кратных 2, но не кратных 5, в промежутке от 100 до N.
Приложения:
elenaklon:
В 3-м N больше 100 или меньше?
Больше 100
Первое задание не надо уже
Ответы
Автор ответа:
8
Смотри картинки
1) Вводим рёбра параллелепипеда
1) Вводим рёбра параллелепипеда
Приложения:
А на алготритмическом языке не сможете ещё написать 2 и 3 задание?
Извини, но знаю только паскаль
А на Паскале сможете?
var a,b,c,v: real;
begin
write('Введите рёбра параллелепипеда: ');
readln(a,b,c);
V:=a*b*c;
writeln(V)
end.
begin
write('Введите рёбра параллелепипеда: ');
readln(a,b,c);
V:=a*b*c;
writeln(V)
end.
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.
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.
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.
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.
Спасибо
Похожие вопросы
Предмет: Химия,
автор: gapurovairada
Предмет: География,
автор: Аноним
Предмет: Математика,
автор: maruxaxxxxx17
Предмет: Математика,
автор: КрисИрис111