Наличие источника и приемника информации и канала связи между ними
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
Будешь моей девушкой помагу
MC (сокращение от английского Memory Clear (Очистить память)) - кнопка означает, что данный сотрутся (удаляться) из ячейки памяти калькулятора.
То-есть предыдущее вычисления забудутся калькулятором. Это все равно что "очистить кэш" из смартфонов.
Я надеюсь, что Вам помог!
var n:integer;
function f(x:integer):real;
begin
if x=1 then f:=1 else f:=x+f(x-1);
end;
begin
write('Введите число N ');
readln(n);
write('сумма равна ',f(n));
end.
лови бро затупил
7 937 082 20 07 киви