На Pascal'e:
var a,b,c,d: integer;
begin
Write('Введите вес человека: '); readln(a);
Write('Введите рост человека'); readln(b);
Write('Введите окружность грудной клетки человека'); readln(c);
d:=(b*c)/240;
if a=d then
begin
Write('Вес человека нормальный');
end
else
write('Вес человека не нормальный');
end.
на фото блок-схема программы(алгоритм)
По черным ящиком (lack box) понимается модуль, алгоритм работы которого неизвестен, соответственно можно только построить алгоритм работы с ним.
Передать исходные данные > получить обработанные данные
Тут такая закономерность
1+1=2
1+2=3
2+3=5
3+5=8
5+8=13
Ответ=13
понял закономерность
Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.