В диапазоне от N до М вывести все числа, последняя цифра которых равна K

@nail2024 · Регистрация: 22.11.2009

Author24 — интернет-сервис помощи студентам

@BumerangSP · 30.05.2012, 18:26

Pascal

uses crt;
var i,n,m,k: integer;
 
begin
 clrscr;
 write('N,M,K: ');
 readln(n,m,k);
 for i:=n to m do
  if i mod 10 = k then
   write(i:4);
end.

valeriikozlov · 30.05.2012, 22:42

Вариант:

Pascal

uses crt;
var n,m,k: integer;
 
begin
 clrscr;
 write('N,M,K: ');
 readln(n,m,k);
 if n mod 10<=k then n:=(n div 10)*10+k 
 else n:=(n div 10 +1)*10+k;
 while n<=m do begin
 write(n:4); inc(n,10);
 end; 
end.

@nail2024 0 / 0 / 1 Регистрация: 22.11.2009 Сообщений: 45
		1
	В диапазоне от N до М вывести все числа, последняя цифра которых равна K 30.05.2012, 17:55. Показов 1192. Ответов 2 Метки нет (Все метки) В диапазоне от N до М вывести все числа, последняя цифра которых равна K 0

	30.05.2012, 22:42

В диапазоне от N до М вывести все числа, последняя цифра которых равна K

Решение