Скласти програму знаходження всіх дільників деякого числа введеного з клавіатури. Всі дільники повинні виводитися на екран
254
348
Ответы на вопрос:
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.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.
9.даны два числа первое в системе счисления с основанием три, второе в системе счисления с основанием четыре. найдите их сумму и ответ запишите в системе счисления с основанием 16.ответ : 1be
Популярно: Информатика
-
BUPA101.02.2021 20:54
-
kpnkipm10.05.2023 03:31
-
lolilol210.03.2020 22:22
-
komissarova531025.01.2023 07:02
-
Panda988119.04.2021 23:03
-
LenysikRESHAETVSE04.04.2020 12:15
-
vitalikobukhov17.05.2021 04:45
-
кент134608.06.2020 23:49
-
katyvolkova8131.08.2020 22:35
-
lizakonnova20.12.2021 06:12