Var y,i:integer;
begin
while i<=10 do
begin
y:=y+i;
i:=i+1;
end;
Write(y);
End.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Trunc(Frac(Abs(ReadReal('x=')))*1000).ToString.Contains('5').Println
end.
И это - всё! )))
Begin
randomize;
writeln('Для молодёжи: ', 1 + random(100));
writeln('Для взрослых: ', 101 + random(100));
writeln('Для стариков: ', 201 + random(50));
end.
Не очень поянятен вопрос..
Если нужно посчитать z, то:
program pr1;
var
a,c,d,b:integer;
z:real;
begin
readln(a,b,c,d);
z:=b*(5*a*c+3*(c-d))/a*(b-c);
writeln(z:8:3);
end.