Var a,b,c,U,R:longint;beginread (U,R);write(U/R) ;end.
===== PascalABC.NET =====
= 1 =
begin
var a, b: integer;
var x, z: real;
Write('Введите a, b, x, z: ');
Read(a, b, x, z);
var k := 1.0;
for var d := 1 to b do
begin
var c := 0.0;
for var s := 1 to a do
c += (d * d + x) / (s ** (3 / 2) + z);
k *= c
end;
Println('К =', k)
end.
= 2 =
begin
var b, n: integer;
var x, z: real;
Write('Введите b, n, x, z: ');
Read(b, n, x, z);
var g := 0.0;
for var c := 1 to b do
begin
var p := 1.0;
for var a := 1 to n do
p *= (a * a * a + z) / (c * c + x);
g += p
end;
Println('G =', g)
end.
Var f1,f2:text;
a,b,t,t1:integer;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
readln(f1,a,b,t);
t1:= t mod (2*a+2*b);
if (t1>=0)and(t1<a) then writeln(f2,'S')
else if (t1>=a)and(t1<a+b) then writeln(f2,'E')
else if (t1>=a+b)and(t1<2*a+b) then writeln(f2,'N')
else writeln(f2,'W');
close(f1); close(f2);
end.
F = (X & Y) V ¬(Z V Y)
Можно попробовать упростить это выражение, но таких требований не выдвигалось, поэтому рисовать функциональную схему будем "в лоб".
Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.