Program Chisla;
Uses Crt;
var i:integer;
begin
clrscrl
for i:=35 to 87 do
if (((i mod 7)=1) or ((i mod 7)=2) or ((i mod 7)=5)) then writeln(i);
readkey;
end.
var
i: integer;
for i:= 35 to 87 do
if i mod 7 = 1 then writeln(i, ' - остаток 1');
if i mod 7 = 2 then writeln(i, ' - остаток 2');
if i mod 7 = 5 then writeln(i, ' - остаток 5');
end;
Ответ: в 2 раза
Объяснение:
N=2^i
N=2^5=32
N=2^10=1024
program z1;
uses crt;
var x,y:integer;
clrscr;
writeln('введи число');
readln(x);
if x>=0 then x:=x*2
else
if x<0 then sqr(x);
writeln(x);
readln;