Циклы, 32 задания

program LoRD1;
uses crt;
var i:integer;
begin clrscr;
i:=10;
while i<=20 do
begin
writeln('число ',i:4,' квадрат ',i*i:6);
i:=i+1 {берем следующее число}
end;
readln;
end.

program LoRD2;
uses crt;
var i,s,n,k:integer;
begin clrscr;
s:=0;
k:=1;
writeln('Введите n:');
readln(n);
for i:=1 to n do
begin
s:=s+k;
k:=k+1;
end;
writeln('Сумма: ',s:10);
readln;
end.

program LoRD3;
uses crt;
var i,s,n,k:longint;
begin clrscr;
s:=1;
k:=1;
writeln('Введите n:');
readln(n);
for i:=1 to n do
begin
s:=s*k;
k:=k+1;
end;
writeln('Произведение: ',s:10);
readln;
end.

program LoRD5_1;
uses crt;
var sag:integer;
metr:real;
begin clrscr;
writeln('Сажни         Метры');
writeln;
for sag:=1 to 10 do
begin
metr:=2.1366*sag;
writeln(sag:4, metr:15:2)
end;
readln;
end.

program LoRD5_2;
uses crt;
var dm:integer;
sm:real;
begin clrscr;
writeln('Дюймы     Сантиметры');
for dm:=1 to 10 do
begin
sm:=2.5*dm;
writeln(dm:4, sm:15:2)
end;
readln;
end.

program LoRD5_3;
uses crt;
var fyt:integer;
metr:real;
begin clrscr;
writeln('Фут            Метры');
writeln;
for fyt:=1 to 10 do
begin
metr:=0.3048*fyt;
writeln(fyt:4, metr:15:2);
end;
readln;
end.

program LoRD5_4;
uses crt;
var drm:integer;
gr:real;
begin clrscr;
writeln('Драхмы        Граммы');
writeln;
for drm:=1 to 10 do
begin
gr:=3.7325*drm;
writeln(drm:4, gr:15:4);
end;
readln;
end.

program LoRD5_5;
uses crt;
var yn:integer;
gr:real;
begin clrscr;
writeln('Унции        Граммы');
writeln;
for yn:=1 to 10 do
begin
gr:=29.86*yn;
writeln(yn:4, gr:15:2)
end;
readln;
end.

program LoRD5_6;
uses crt;
var fynt:integer;
kg:real;
begin clrscr;
writeln('Фунты     Килограммы');
for fynt:=1 to 10 do
begin
kg:=0.40951*fynt;
writeln(fynt:4, kg:15:5)
end;
readln;
end.

program LoRD5_7;
uses crt;
var ar:integer;
metr:real;
begin clrscr;
writeln('Аршины       Метры');
writeln;
for ar:=1 to 10 do
begin
metr:=0.7112*ar;
writeln(ar:4, metr:15:4)
end;
readln;
end.

program LoRD5_8;
uses crt;
var zol:integer;
gr:real;
begin clrscr;
writeln('Золотники     Граммы');
writeln;
for zol:=1 to 10 do
begin
gr:=4.2657*zol;
writeln(zol:4, gr:15:4)
end;
readln;
end.

program LoRD5_9;
uses crt;
var dm:integer;
m:real;
begin clrscr;
writeln('Дюймы     Милиметры');
writeln;
for dm:=1 to 10 do
begin
m:=25.3995*dm;
writeln(dm:4, m:15:4)
end;
readln;
end.

Program zadacha12;
Uses crt;
Var a,b,c:longint;
Begin
Clrscr;
a:=13;
b:=1;
Write('Произведение нечётных двузначных чисел кратных 13 = ');
Repeat
If a mod 2 <> 0 then
begin
c:=a*b;
b:=c;
a:=a+13;
end
else a:=a+13;
Until a>99;
Write(b);
End.

Program kr;
Uses crt;
Var a,b:integer;
Begin
Clrscr;
a:=100;
b:=0;
Write('Сумма чисел = ');
Repeat
if a mod 17 = 0 then
begin
b:=a+b;
a:=a+1;
end
else a:=a+1;
Until a>200;
Writeln(b);
End.

Program kv;
Uses crt;
Var a,b,c,n:integer;
Begin
Clrscr;
Writeln('Введите номер конечного числа: ');Read(n);
a:=1;c:=0;
Repeat
b:=sqr(a);
a:=a+1;
c:=b+c;
Until a>n;
Writeln('Сумма квадратов равна ',c);
End.

Program st;
Uses crt;
Var a,b,c:integer;d:real;
Begin
Clrscr;
Write('Введите основание a и степень b: ');Readln(a,b);
c:=1;d:=1;
if b>0 then
begin
Repeat
c:=c*a;
b:=b-1;
Until b=0;
Write('a в степени b = ',c);
end
else if b<0 then if a<>0 then
begin
Repeat
d:=d/a;
b:=b+1;
Until b=0;
Writeln('a в степени b = ',d:4:2);
end
else
Writeln('Данное выражение не имеет смысла')
else if b=0 then
Writeln('a в степени b = ',c)
End.

var
  s,x:integer;
begin
  writeln('Çàäàéòå êîëè÷åñòâî òêàíè:');
  readln(s);
  repeat
    writeln('Çàäàéòå êóñîê êîòîðûé âû õîòèòå îòðåçàòü...');
    readln(x);
    if x<=s then
    begin
      s:=s-x;
      writeln('Îñòàëîñü òêàíè: ',s)
    end
    else
      writeln('Ó âàñ îñòàëîñü ñëèøêîì ìàëî òêàíè, ÷òîáû îòðåçàòü òàêîé êóñîê...')
  until
    x>s
end.

var
  sum,i:integer;
begin
  sum:=0;
  for i:=1 to 99 do
    if odd(i) then
      inc(sum,i);
  writeln('Ñóììà = ',sum)
end.

var
  sum,i:integer;
begin
  sum:=0;
  for i:=2 to 100 do
    if odd(i)=false then
      inc(sum,i);
  writeln('Ñóììà = ',sum)
end.

var
  i:integer;
  per,sum,m:real;
begin
  writeln('Ââåäèòå ññóäó...');
  readln(m);
  i:=1;
  per:=0.2;
  sum:=m*0.2;
  repeat
    sum:=sum+m*per;
    inc(i)
  until
    sum>m;
  writeln('Äîëã ïðåâûñèò âçÿòóþ ññóäó ',i,' ëåò')
end.

var
  s,x:real;
  i:integer;
begin
  writeln('Çàäàéòå êîëè÷åñòâî äåíåã Ïåòè:');
  readln(s);
  writeln('Ñòîèìîñòü ìîðîæåííîãî...');
  readln(x);
  i:=0;
  repeat
    s:=s-x;
    inc(i)
  until
    x>s;
  writeln('Ïåòÿ ìîæåò ñúåñòü ',i,' øò.');
  writeln('Ïðè ýòîì ó íåãî îñòàíåòñÿ äåíåã:',s)
end.

var
  i,n,x:integer;
  sum:real;
begin
  writeln('Çàäàéòå x:');
  readln(x);
  writeln('Çàäàéòå n:');
  readln(n);
  sum:=sin(x);
  for i:=2 to n do
    sum:=sum+sum*sin(x);
  writeln('Ðåçóëüòàò:',sum)
end.

var
  i,n,x:integer;
  res:real;
begin
  res:=1;
  x:=1;
  for i:=1 to 10 do
  begin
    x:=x+i+1;
    res:=res*x
  end;
  writeln('Ðåçóëüòàò:',res)
end.

var
  n:integer;
  res,i:real;
begin
  readln(n);
  res:=0;
  i:=1;
  repeat
    res:=res+1/i;
    i:=i+1;
  until
    i>n;
  writeln('Ðåçóëüòàò:',res)
end.

//1,2,4,8,16,32,64,128,256,512,1024
var
  x,i,res:integer;
begin
  res:=1;
  x:=2;
  for i:=2 to 11 do
  begin
    res:=res+x;
    x:=x*2;
  end;
  writeln('Ðåçóëüòàò:',res)
end.

var
  n,x:integer;
  res,i:real;
begin
  readln(n);
  res:=0;
  i:=1;
  x:=1;
  repeat
    x:=x*2;
    res:=res+1/sqr(x);
    i:=i+1
  until
    i>n;
  writeln('Ðåçóëüòàò:',res)
end.

var
  m,n,i:integer;
  res:real;
begin
  writeln('Êîëè÷åñòâî:');
  readln(n);
  writeln('Ñêîëüêî ðàáîòàëà ïåðâàÿ ñåíîêîñèëêà (ìèí):');
  readln(m);
  res:=0;
  for i:=1 to n do
    res:=res+i*m;
  writeln('Âñÿ áðèãàäà ïðîðàáîòàëà: ',res/60:2:2,' ÷')
end.

var
  m,n,i:integer;
  res:real;
begin
  writeln('Количество учащихся:');
  readln(n);
  res:=0;
  for i:=1 to n do
  begin
    writeln('Рост ',i,' учащегося:');
    readln(m);
    res:=res+m
  end;
  writeln('Средний рост: ',res/100:2:2,' м')
end.

Program seno;
Uses crt;
Var n,k:integer;m,d:real;
Begin
Clrscr;
Write('Введите количество сенокосилок: ');Readln(n);
Write('Введите время на работу затраченное 1-й сенокосилкой (в минутах): ');Readln(m);
d:=m;
For k:=1 to n do
if (n=1) and (k=1) then
begin
m:=m/60;
Writeln('Общее время, затраченное на работу = ',m:3:1,' час');
end
else
if (k<>1) and (n>1) then
begin
m:=m+10;
d:=m+d;
end;
d:=d/60;
Writeln('Общее время, затраченное на работу = ',d:3:1,' часа');
End.

var
  m,n,i:integer;
  res:real;
begin
  writeln('Êîëè÷åñòâî ÷èñëî:');
  readln(n);
  writeln('Íàéäåííûå ÷èñëà:');
  for i:=1 to n do
    if (i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) then
      write(i,' ');
  writeln;
end.

var
  m,n,i:integer;
  res:real;
begin
  writeln('Êîëè÷åñòâî ÷èñëî:');
  readln(n);
  writeln('Íàéäåííûå ÷èñëà:');
  for i:=1 to n-1 do
    if (i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) then
      write(i,' ');
  writeln;
end.

Program chislo_n;
Uses crt;
Var n,k:integer;
Begin
Clrscr;
Writeln('Введите число n: ');Read(n);
Repeat
if (n mod 2 <> 0) and (n mod 3 <> 0) and (n mod 5 <> 0) then
begin
k:=k+1;
n:=n-1;
end
else
n:=n-1;
Until n=0;
Writeln('Таких чисел - ',k);
End.

Program dvuzn;
Uses crt;
Var a,b,c:integer;
Begin
Clrscr;
Write('Введите два двузначных числа: ');Readln(a,b);
if (a>99) and (b>99) or (a>99) and (b<99) or (a<99) and (b>99) then writeln('Ошибка ввода')
else
begin
b:=b mod 100;
c:=a+b;
c:=c*100;
if c mod (a*b) = 0 then writeln('Это числа ',a,' ',b)
else writeln('таких чисел нет')
end;
End.

Program seno;
Uses crt;
Var n,k:integer;m,d:real;
Begin
Clrscr;
Write('Введите количество сенокосилок: ');Readln(n);
Write('Введите время на работу затраченное 1-й сенокосилкой (в минутах): ');Readln(m);
d:=m;
For k:=1 to n do
if (n=k) then
begin
m:=m/60;
Writeln('Общее время, затраченное на работу = ',m:3:1,' час');
end
else
if (k>1) and (n>1) then
begin
begin
m:=m+10;
d:=m+d;
end;
d:=d/60;
Writeln('Общее время, затраченное на работу = ',d:3:1,' часа');
end;
End.