На 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.
на фото блок-схема программы(алгоритм)
См фото
=========================
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadInteger)
.Where(t->(t mod 3=0) and (Abs(t) mod 10=9)).Println
end.
Ответ:1)Тактовая частота процессора это количество выполняемых процессором операций в секунду.2)Системная шина – основная интерфейсная система компьютера, обеспечивающая сопряжение и связь всех его устройств между собой. Шина представляет собой канал передачи данных в виде электронных проводников на материнской плате или многожильного кабеля.3)Порт ввода-вывода – логическое объединение сигнальных линий, через которое принимаются и передаются данные.
Объяснение:
Если учитывать скобки- то 29, если нет, то 27