Распечатать числа в диапазоне от 1 до N не оканчивающиеся на цифру K - Turbo Pascal
Формулировка задачи:
Распечатать числа в диапазоне от 1 до N не оканчивающиеся на цифру K.
Решение задачи: «Распечатать числа в диапазоне от 1 до N не оканчивающиеся на цифру K»
textual
Листинг программы
var k,N,i:integer;
begin
write('введите натуральное число N=');
readln(N);
write('введите цифру k=');
readln(k);
for i:=1 to N do
if i mod 10<>k then write(i,' ');
readln
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д