Const
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
end;
writeln(s);
end.
Var
r1,r2,r3,U:real;
begin
Write('Введите величины сопротивлений R1, R2, R3: ');
Read(r1,r2,r3);
Write('Введите величину напряжения V: ');
Read(U);
Writeln('Ток через R1 и R2 равен ',U/(r1+r2));
Writeln('Ток через R3 равен ',U/r3)
end.
Пример
Введите величины сопротивлений R1, R2, R3: 130 70 215
Введите величину напряжения V: 220
Ток через R1 и R2 равен 1.1
Ток через R3 равен 1.02325581395349
16*8*40*64= 327680/8=40960/1024=40 Кб
ну или можно проще написать - 16*40*64=2^4*5*2^3*2^6=5*2^13 байт= 5*2^3=40 Кб
var n,count:integer;
begin
repeat
readln(n);
if(n<>999) then inc(count);
until(n=999);
writeln(count);
readln;
end.