1) Задаешь проверку: введеные числа меньше 7?
Если да - сохраняешь это число в переменную.
В конце все переменные, которые записывались - умножаешь. Все пустые переменные были равны 1, т.е. если ты их умножишь - все останется ок.
2) Задаешь проверку: введеные числа при делении на 100 > 0?
Если да - счетчик + 1.
3) Задаешь проверку: введеные числа > 10?
Если да - 1счетчик + 1
Если нет - 2счетчик + 1
Сравниваешь счетсчики.
4) Задаешь проверку: введеные числа > 12 и < 40?
Если да: проверяешь, кратно ли число 7 (число % 7 == 0)
Делаешь выводы. Выводишь результат
Не за что. Удачи!
Поделитесь своими знаниями, ответьте на вопрос:
Pascal. Написать программу по схеме, используя цикл while.
var a, b: integer;
begin
a := 1;
b := 1;
while a <> 128 do begin
a := a * 2;
b := b + 2;
end;
writeln(b);
end.