Цикл с параметром

1.

program OBb;
uses crt;
var i,n,k:byte;
BEGIN
read(n,k);
for i:=1 to n do
writeln(k);
END.

2.

Надрукуйте всі цілі числа з інтервалу [120;150]

program intervalu_cufr;
uses crt;
var i,s:byte;
BEGIN
for i:=120 to 150 do
writeln(i);
END.

3.

Надрукуйте всі цілі числа з інтервалу [90;110]у зворотному порядку.

program Interval_v_zvorotnimy;
uses crt;
var i,a:integer;
BEGIN
for i:=110 downto 90 do
write(i,' ');
END.

4.

Надрукуйте всі цілі парні числа від A до 20.

program vmmv;
uses crt;
var i,a:integer ;
BEGIN
readln(a);
for i:=a to 20 do
begin
if i mod 2=0 then write(i,' ');
end;
END.

5.

Надрукуйте всі цілі числа 30 до 100, що кратні 3 та закінчуються на 2, 4 або 8.

program mbnjf;
uses crt;
var i,a:integer;
BEGIN
for i:=30 to 100 do
begin
if i mod 3=0 then;
if (i mod 10=2) or (i mod 10=4) or (i mod 10=8) then write(i,' ');
end;
END.

6.

Надрукуйте всі щасливі чотирьохзначні числа. Щасливим називається число у якого сума

 перших двох цифр дорівнює сумі останніх двох цифр.

 Наприклад, 3241.

program shasluvi_chisla;
uses crt;
var i,a1,a2,a3,a4,b1,b2:integer;
BEGIN
for i:=1000 to 9999 do
begin
a4:=i mod 10;
a2:=i div 100 mod 10;
a3:=i mod 100 div 10;
a1:=i div 1000;
b1:=a1+a2;
b2:=a3+a4;
if (b1=b2) then write(i,' ');
end;
END.

7.

Знайдіть суму, кількість та середнє арифметичне всіх натуральних двохзначних чисел,

у яких перша цифра менша другої.

program KISISBEK;23
uses crt;
var i,s,c1,c2,k:integer;sa:real;
BEGIN
s:=0;k:=0;sa:=0;//обнуляєм значення
for i:=10 to 99 do //зм?нюєм значення
Begin //в?дкриваєм операторн? дужки
c1:=i div 10; c2:=i mod 10;//обчислюєм 1 та 2 цифру
if c1<c2 then//перев?ряемо умову
begin
s:=s+i;//додаем до суми
k:=K+1;//зб?льшуєм л?чильник
end;
end;
if k<>0//перев?рка що к не нуль
then sa:=s/k;//знаходем середнє арифметичне
writeln(s,' ',k,' ',sa:1:2);//виводемо на екран середнє арифметичне
END.

8.

Ввести з клавіатури n дійсних чисел. Знайти добуток тих, що належать інтервалу [0, b].

program rapapapapam;

uses crt;
var i,n:integer; a,b,p:real;
BEGIN
p:=1;//присвоюємо початкове значення
read(b);read(n);//вводимо значення оператором read
for i:=1 to n do//вводимо кк?льк?сть чисел
begin
read(a);
if(a>=0)and(a<=b)//якщо веденне число задовольняє нер?вност?
then p:=p*a;//то це чилсо накопичується на цей добуток
end;
writeln(p:1:1);//ввиводимо добуток
END.

9.

Знайти середнє арифметичне всіх натуральних двохзначних чисел кратних 13.

program seredne_arif;

uses crt;
var i,s,k,a,b:integer;sa:real;
BEGIN
s:=0; k:=0;sa:=0;
for i:=10 to 99 do
if i mod 13=0 then writeln(i);
begin
s:=s+i; k:=k+1;
end;
if k<>0 then sa:=s/k;
writeln(sa:1:2);
END.