Посчитать количество целых чисел кратных 7 и не оканчивающихся на 7 из промежутка от 1 до 10000 в паскале

125

316

Посмотреть ответы 2

Ответы на вопрос:

MishaBig

Информатика

4,8(95 оценок)

// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin print(range(14,10000,7).where(x-> x mod 10< > 7).count) end. результат выполнения программы: 1285

ideliya2006

Информатика

4,5(64 оценок)

1. program prim1; var x: integer; begin x: = какое число или присваивания оператором readln(x) if x> 0 then x+1 writeln ('полученное число : ,x'); end. вроде так