krutikovas
krutikovas
02.12.2022
?>

Вводить числа с клавиатуры пока не будет введено число кратное 5

Информатика
Ответить

Ответы

Хохлов
Хохлов
02.12.2022

Если в паскале

program v1;

var n:integer;

begin

repeat

 writeln('Ведите число:');

 readln(n);

until n mod 5 = 0;

writeln('Число кратное 5');

end.


Вводить числа с клавиатуры пока не будет введено число кратное 5

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вводить числа с клавиатуры пока не будет введено число кратное 5
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

krimenu5033
Юзер вася чайников решил приобрести себе компьютер. hовый компьютер стоит в фирме 1000 у.е. hо, поскольку у васи уже был блок питания, он решил докупить остальное и собрать компьютер самостоятельно....
Автор: krimenu5033
gernovoy
Что не является текстовым редактором? a)блокнот b) ms word c) word pad d) microsoft paint
Автор: gernovoy
Тресков946
Дано целое число. если оно является положительным, то прибавить к нему 23; в противном случае не изменять его. вывести полученное число. 1/ program cislo; var a: integer; begin writeln('введи число a...
Автор: Тресков946
mulyugina365
Какой оператор цикла желательно использовать, если известно условие выполнения тела цикла? 1.for <параметр>:= <начальное значение> to <конечное значение> do <оператор> 2.repea...
Автор: mulyugina365
ИгоревичАндрей
Имеется садовый участок, имеющий форму прямоугольника со сторонами А и В метров.Составьте алгоритм , которая определит сколько досок надо купить, чтобы поставить сплошной забор. Ширина одной доски 2...
Автор: ИгоревичАндрей
galichka12
Нужно условие и решение. информатика 7 класс. тест 8. персональный компьютер. вариант 1. номер 4. ( условие и решение сама . на носителе объёмом 600 мбайт размещены изображения, каждое из которых зан...
Автор: galichka12
arturo95
Сколько времени будет скачиваться аудиофайл размером 7200 кбайт при соединении с максимальной скоростью скачавания 196 608 бит/с ?
Автор: arturo95
miyulcha8077
Робот чертёжник выполняет команды сместиться на(х, у) нц повтори 3 раза сместиться на(3; 2) сместиться на(2; 1) сместиться(-1; 4) на какую команду можно заменить этот алгоритм?
Автор: miyulcha8077
nastikak8
6класс учебник босовой по информатике крылатые выражения (слова) — это устойчивые выражения, вошедшие в язык из определенного или источника. 1. откройте папку крылатые выражения (скачать), вложенную...
Автор: nastikak8
vladburakoff5
Почему с цветовой модели hsb человеку более удобно подбирать нужный цвет, чем с цветовой модели rgb?
Автор: vladburakoff5
alex091177443
Составьте программу вычисления суммы 5+11+17++ 131 это решить в паскале
Автор: alex091177443
zodgener
Дана задача турбо паскаля с несколькими ошибками, нужно исправить ошибки чтобы программа работала. const m_ref=2; {программа для вывода библиографических ссылок.} type select = ( book, magazine); { ...
Автор: zodgener
ALLA1868
Дано натуральное число n . s=1/1+1/2++1/n в виде таблицы​
Автор: ALLA1868
in-1973
Вычислить сумму 1/(3*4)+2/(4*5)+3/(5*6)+.. на Pascal.
Автор: in-1973
Imarmy67
Объем сообщения — 7, 5 кбайт. известно, что данное сообщение содержит 7680 символов. какова мощность алфавита.
Автор: Imarmy67
▲