Есть ответ 👍

Скласти програму знаходження всіх дільників деякого числа введеного з клавіатури. Всі дільники повинні виводитися на екран

254
348
Посмотреть ответы 3

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


PascalABC.Net

begin  var z := ReadInteger('Введите целое число: ');  var i := 0;  Println('Делители: ');  while i < z do  begin    Inc(i);    if z mod i = 0 then Print(i, ' ');  end; end.
ghenek2004
4,5(54 оценок)

begin

var z := ReadInteger('ціле число: ');

var i := 0;

Println('дільники: ');

while i < z do

begin

  Inc(i);

  if z mod i = 0 then Print(i, ' ');

end;

end.

1Али
4,5(52 оценок)

9.даны два числа первое в системе счисления с основанием три, второе в системе счисления с основанием четыре. найдите их сумму и ответ запишите в системе счисления с основанием 16.ответ : 1be 

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