Написать функцию в паскале, определяющую делится ли (кратно ли)введенное число 15 (если делится, то значение функции true, иначе false). с ее вывести на экран все числа кратные 15 из интервала от 200 до 300.заранее !

296

368

Посмотреть ответы 3

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

4loVSer4

Информатика

4,6(28 оценок)

var x: integer;

function d15(x: integer) : boolean;

begin

if (x mod 15) = 0 then d15 : = true else d15 : = false;

end;

begin

for x : = 200 to 300 do if d15(x) then writeln(x);

end.

basirovdanil

Информатика

4,6(53 оценок)

function k15(a: integer): boolean;

begin

k15: =a mod 15 = 0;

end;

var i: integer;

begin

for i: =200 to 300 do

if k15(i) then write(i,' ');

end.

результат:

210 225 240 255 270 285 300

alexa7021

Информатика

4,7(22 оценок)

2^5 = 32 640*480*5 бит = 1536000 бит = 192000 байт

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.