Написать программу:

Компьютер задумал целое положительное число, промежутки от 0 до 100. Определить кратно ли оно 5.

Question

Информатика

Филомена

1 марта, 05:04

Написать программу:

Компьютер задумал целое положительное число, промежутки от 0 до 100. Определить кратно ли оно 5.

+4

Ответы (1)

Знаете ответ на вопрос?

Магдалина · Answer 1

Program prog;

Uses crt;

var a: integer;

Begin

Clrscr;

Randomize;

a:=random (101) ;

writeln ('Число a = ', a) ;

if (a mod 5) = 0 then

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

else

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

readln;

end.

Написать программу:Компьютер задумал целое положительное число, промежутки от 0 до 100. Определить кратно ли оно 5.

Написать программу:

Компьютер задумал целое положительное число, промежутки от 0 до 100. Определить кратно ли оно 5.