//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
Вариант значения D и работы алгоритма:
D := 40
40 > 30 (Да)
Y := 40
Смотри картинку
(2 * 1 < 2) - это истина(1 > 2) - это ложьне (2 * 1 < 2) - это ложь Итого получается ложь или ложьЕстественно ложь
Для Паскаля:
var f,x,b1,b2,b3:real;
begin
write('B1=');
read(b1);
write('B2=');
read(b2);
write('B3=');
read(b3);
write('x=');
read(x);
if x<6 then f:=x+b1;
if x=15 then f:=x/b2
else f:=x+b3;
writeln('f=',f);
end.