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

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

Question

Информатика

Моря

8 апреля, 19:55

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

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

+3

Ответы (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.