Регистрация
kirik2017
14.12.2022 16:40
Информатика
Есть ответ 👍

Вывести все натуральные трехзначные числа, в которых есть заданная цифра. на паскале.

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

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

gopina04vika
gopina04vika
4,5(78 оценок)

var a, i, o: integer;

begin

readln(a);

for i: =100 to 999 do begin

  if i div 100 = a then  

  o: =o+1;

  if (i div div 100) = a then  

  o: =o+1;

  if i - ((i div   10)*10) = a then  

  o: =o+1;

end;

writeln(o);

end.

Alvn
Alvn
4,5(84 оценок)
Program crazycoder; var ar: array[1..15] of integer; i: integer; begin; var i1: =1; writeln('тройки элемента масива'); while i1< =15 do begin var ar1: =arrrandominteger(4,1,20); sort(ar1); ar[i1]: =ar1[1]; ar[i1+1]: =ar1[2]; ar[i1+2]: =ar1[3]; writeln(ar1[1]: 4,ar1[2]: 4,ar1[3]: 4); i1: =i1+3; end; writeln('масив: '); for i: =1 to 15 do write(ar[i]: 4); end.

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