Program Prices;
const max : integer = 10;
var
price : real;
i : integer;
begin
{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;
Синий треугольник, оранжевый круг, жёлтый квадрат, (голубой), жёлтый квадрат, синий треугольник, , зелёный треугольник
var
P:array[2..100000] of boolean;
i, n, pr:integer;
flag:boolean;
begin
write('max = ');
readln(n);
for i := 2 to n do
P[i] := true;
pr := 2;
flag := true;
while flag do
begin
i := 2 * pr;
while i <= n do
begin
P[i] := false;
i := i + pr;
end;
flag := false;
for i := pr + 1 to n do
if P[i] then
begin
pr := i;
flag := true;
break;
end;
end;
for i := 10 to n do
if P[i] then
writeln(i);
readln;
end.
program zadacha;
var
x,y:real;
begin
writeln('vvedite x');
readln(x);
if x>0 then y:=-2+3*x else y:=8+x;
writeln('y=',y);
end.
Переводим сначала в десятичную:
затем в двоичную:
35701 =17850*2+1
17850 =8925*2+0
8925 =4462*2+1
4462=2231*2+0
2231=1115*2+1
1115=557*2+1
557=278*2+1
278=139*2+0
139=69*2+1
69=34*2+1
34=17*2+0
17=8*2+1
8=4*2+0
4=2*2+0
2=1*2+0
Ответ: 1000101101110101