ЮП
Юля Пархоменко
Вводятся 15 чисел. Определить, сколько среди них чисел, больших 100
Дайте ответ более полный т. к я в этом деле новичок
И перед тем как мне писать проверьте у себя )))))
Дайте ответ более полный т. к я в этом деле новичок
И перед тем как мне писать проверьте у себя )))))
непростое задание, вводи числа-разберемся))))))))))))))))))
var a:real; i,n:integer;
begin n:=0; for i:=1 to 15 do begin read(a); inc(n,ord(a>100)) end; readln; writeln(n); readln end.
Таблицу умножения тоже прикажешь проверять? И слово "пожалуйста" не вредно запомнить и использовать.