Регистрация
Alinka2128
11.03.2021 00:31
Информатика
Есть ответ 👍

Переделать в паскале в формат while var n,i,k: integer; begin k: =2; write('введите число n'); readln(n); for i: = 2 to n div 2 do if n mod i = 0 then k: =k+1; writeln(,k); end.

190
237
Посмотреть ответы 2

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

Катттття
Катттття
4,8(15 оценок)
Просто перевод заданного кода var       n, i, k: integer; begin       k : = 2;       write('введите число n');       readln(n);       i : = 2;             while i < = n div 2 do       begin               if n mod i = 0 then                       k : = k + 1;               i : = i + 1;       end;             writeln(k); end.
ТаяDuda2133
ТаяDuda2133
4,5(6 оценок)

ответ:

(2126 * 2835) * 3 = 18081630 байт

= 17657.84 килобайта

= 17.244 мегабайта

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