Uses
Math;
...
MyNumber:=RandomRange(Start, Stop);//1 вариант
MyNumber:=Random(Stop)+Start;//2 вариант. Для него не нужен модуль <span>Math;
</span>Start - От
Stop - До
Var y,z:integer;
begin
Readln(z);
y:=3*z-2;
Writeln(y);
End.
Var i:integer;
begin
for i:=2 to 50 do
if (i mod 5=0) and (i mod 8=0) then write(i:3);
<span>end.
<u>Результат выполнения программы:
</u>40
</span>
Var
i,s:integer;
begin
i:=1; s:=0;
while i<=99 do
begin s:=s+i; i:=i+2 end;
Writeln(s)
end.
Тестовое решение:
2500