Var
u,r,i:real;
begin
writeln('Введите напряжение: ');
readln(u);
writeln('Введите сопротивление: ');
readln(r);
i:=u/r;
writeln('Сила тока равна ',i)
<span>end.</span>
Program consoles;var n, i, sum, count, reads: integer;beginreadln(n);for i := 1 to n do begin readln(sum); if(sum <= 3) then count := count + sum; end;readln(reads);if(reads = 1) then writeln(count);end.
Var
simple: array[1..10000] of integer;
i, j, a, b, simple_n, s: integer;
is_simple: boolean;
begin
read(a, b);
for i := 2 to b do begin
is_simple := true;
for j := 1 to simple_n do
is_simple := is_simple and (i mod simple[j] <> 0);
if is_simple then begin
simple_n := simple_n + 1;
simple[simple_n] := i;
writeln(i);
if i >= a then s := s + i;
end;
end;
writeln(s);
end.
А что именно решать? не вижу задание???