Пользователь вводит число,программа должна вывести на экран 3 случайных числа ,не совпадающих с введённым пользователем числом . ( Паскаль)
Я написала ,но проблема в условии ( сейчас просто цикл) . Исправьте пожалуйста!
uses crt;
var a,b,d:integer;
Begin
readln (a);
randomize;
for b:=1 to 3 do
begin
d:=random (3);
write (' ',d,' ');
end;

end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.