Есть ответ 👍

По информатике в паскале *с клавиатуры вводится натуральное число n из промежутка от 0 до 100. найти и вывести на экран все простые числа от 0 до n*

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

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

maks8707
4,6(25 оценок)

Var i,n: integer; begin   writeln('введите число от 0 до 100'); readln(n); for i: =1 to n do begin   writeln(i); end; end.

Программа для введённого с клавиатуры числа n выводит число, составленное из нечётных цифр десятичной записи числа n. если в записи n нет ни одной нечётной цифры, выводится 0. если n < 0, выводится что-то жуткое. st - в любой момент степень 10, пусть st = 10^k. тогда  n mod (st * 10) div st получает (k + 1)-ую цифру справа в десятичной записи числа n. затем, если она чётная, то вместо n рассматривается число  n div (st * 10) * st + n mod st - число, получаемое из n вычитанием (k + 1)-й цифры. если нечетное - берется следующее k.например, для n = 1234567 будет выведено "ответ: 1357", а для n = 24680 будет выведено "ответ: 0".

Популярно: Информатика