Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Nalalisa
15.09.2021 23:02 •
Информатика
Переделать в паскале в формат 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.
Показать ответ
Ответ:
KOTIK22811
02.08.2020 11:57
Просто перевод заданного кода
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
marikalinich
17.06.2021 01:59
Постройте таблицу истинности: F= A^Bv¬B...
smail212313
25.08.2022 02:14
Составить программу, которая подсчитывает общее количество целых пятизначных чисел, составленных из различных цифр, которые тем свойством, что число, образованное первыми двумя цифрами,...
beelan3
03.06.2022 07:57
)определите, по какой из масок из каталога будет отобрана указанная группа файлов: cfira.doc co-fira.doc ofira.doc tokofira.doc выберите верный ответ: а) *fir* б) c*fira.d? ? в)...
89370982401
03.06.2022 07:57
На borland pascal пусть в программе объявлены переменные: d: real определите тип следующего выражения: d+1...
nelyaaa01
01.06.2023 04:44
Что лишнее жесткий диск flash-память компакт-диск процессор...
alinatrocenko
05.05.2023 10:30
Дан рекурсивный алгоритм: procedure f(n: integer); begin writeln( * ); if n 0 then begin writeln( * ); f(n-2); f(n-2); f(n div 2); end end; сколько символов звездочка будет напечатано...
hhhnnnvvv
03.01.2022 14:46
Найти произведение: \frac{(k^{2} +3)( k^{2}+5)( k^{2} +7)**( k^{2}+103) }{(k-7)(k-10)(k-13)**(k-97)} [/tex]...
6lackk
29.05.2020 06:08
Необходимо выбрать верный алгоритм печать документа в Word 2007 нужно выбрать правильный ответ из трёх предложенных вариантов. а)office печать. б)разметка страницы печать. в) вставка...
Hapec
18.03.2023 21:19
Нужно:1 написать программу которая посчитает сумму положительных (отдельно) и отрицательных (отдельно) чисел (n брать от 30 до -13 с шагом 1)2 Написать программу, которая посчитает...
костя665
03.03.2022 13:42
Информатика тема мультимедиа. SOS...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.