Цикл з умовою

1.

Дано натуральне число n. Чи є воно степенем числа 2?

program cikl1;
uses crt;var n:word;
BEGINread(n);
while n mod 2=0 don:=n div 2;
if n=1 then writeln ('yes')else writeln('no');
END.

2.

Знайдіть 5 перших чисел, що більші за 200 та кратні 17.

program cikl_2;
uses crt;
var n,a,k,b:integer;
BEGINn:=200; 
 k:=0;repeatn:=n+1;
if n mod 17=0 thenbeginwrite(n,' ');
 k:=k+1;
end;
until k=5;
END.

3.

Знайдіть максимальне з натуральних чисел, що менше за 5000, яке кратне числу 39.program cukl_3;
uses crt;var n,k:integer;BEGINn:=5000; k:=0;repeatn:=n-1;if n mod 39=0 thenbeginwrite(n,' ');k:=1;end;until k=1END.
20.Знайдіть 3 найбільших натуральних числа, що менші за 10000, та кратні 218.program cikl_4;
uses crt;var n,k:integer;BEGINn:=10000; k:=0;repeatn:=n-1;if n mod 218=0 thenbeginwriteln(n,' ');k:=k+1;end;until k=3END.

4.

Знайдіть добуток 3 перших натуральних чисел, що більші за 50 та кратні 14
program cikl_5;
uses crt;var n,k:integer;BEGINn:=50; k:=0;repeatn:=n+1;if n mod 14=0 thenbeginwriteln(n,' ');k:=k+1;end;until k=3END.

5.

Надрукуйте у рядок 5 найбільших натуральних числа, що менші за 500, кратні 43 та знайдіть їх суму.
program cikl_6;
uses crt;var n,k,s:integer;BEGINn:=500; k:=0;repeatn:=n-1;if n mod 43=0 thenbeginwrite(n,' ');k:=k+1;s:=s+n;writeln(s);end;until k=5END.

6.

Надрукуйте у рядок 8 найбільших натуральних числа, що менші за 5000, кратні 47 та знайдіть суму тих з них, що закінчуються парною цифрою.
program cikl_7;
uses crt;var n,k,s,a:integer;BEGINn:=5000; k:=0;s:=0;repeatn:=n-1;if n mod 47=0 thenbeginwrite(n,' ');k:=k+1;if n mod 2=0 thenbegins:=s+n;writeln(s,' ');end;end;until k=8END.

7.

program cikl_8;
uses crt;var s,a,n,i:integer;BEGINwriteln('vedit kl chisel');readln(n);s:=0;for i:=1 to n dobeginwrite(i,' ');readln(a);s:=s+a;end;writeln(s);END.

8.

program cikl_9;
uses crt;var n,a,s:integer;BEGINreadln(n); s:=0;repeatbeginreadln(a);s:=a+s;writeln(s);end;until a=0END.

9.

program cikl_10;
uses crt;var n,s:integer;BEGINreadln(n);s:=0;while n<>0 dobeginreadln(n);s:=s+n;end;writeln(s);END.

10.

Дано натуральне число n. Визначте у ньому кількість та суму цифр.
program cikl_11;
uses crt;var n:longint;k,c,s:byte;BEGINread(n);k:=0; s:=0;repeatc:=n mod 10;k:=k+1; s:=s+c;n:=n div 10;until n=0;writeln(k,' ',s);END.

11.

Дано натуральне число. З’ясуйте, скільки разів у ньому зустрічається перша цифра.
program cikl_12;
uses crt;var n,x:longint;c,c1,k:byte;BEGINread(n);x:=n;while n>9 don:=n div 10;c1:=n;k:=0;repeatc:= x mod 10;if c=c1 then k:=k+1;x:=x div 10;until x=0;writeln(k);END.

12.

Дано натуральне число n. Знайдіть максимальну цифру. Якщо максимальних цифр декілька, то визначте порядковий номер першої з них, якщо цифри рахувати зліва направо.
program cikl_13;
uses crt;var n:longint; c,max,nmax,k:byte;BEGINread(n);max:=0;k:=0;repeatc:=n mod 10;k:=k+1;if c>=max thenbegin max:=c; nmax:=k; end;n:=n div 10;until n=0;nmax:=k+1-nmax;writeln(max,' ',nmax);END.

13.

Дано натуральне число n. Знайдіть кількість цифр 5.
program cikl_necikl;
uses crt;var n:longint;c,k:integer;BEGINread(n);k:=0;repeatc:=n mod 10;if c=5 thenk:=k+1;n:=n div 10;until n=0;writeln(k,' ');END.

14.

Дано натуральне число n. Знайдіть суму його першої та останньої цифр.
program cikl_2134;uses crt;var n:longint; c1,c2,s:byte;BEGINread(n);s:=0;c1:=n mod 10;c2:=n div 1000;s:=c2+c1;writeln(s);END.

15.

Гра
program vgadai_chislo ;
uses crt;var n,n1,c,b:byte;BEGINclrscr;textbackground(7);textcolor(14);writeln('Gra');writeln('Vgadai chislo');writeln('V tebe e 3 sprobu');writeln('vvedu chislo');repeatrandomize;n:=random(9);c:=0;repeatreadln(n1);textcolor(13);if n<>n1 thenbeginc:=c+1;textcolor(32);if n<n1 then  writeln('tvoe chislo bilshe')else writeln('tvoe chislo menshe');end;until((n=n1)or(C=3));textcolor(44);if n=n1 then writeln('krasava')else writeln('baran');writeln('vgadane chislo',n);writeln('1-prodovjit,0-zakinchitu');readln(b);until ( b=0);END.