Контрольна робота

1.

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

program control_2;

uses crt;
var i,k,c,b,a,:integer;
BEGIN
k:=0;
for i:=100 to 999 do
BEgin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
begin
if (a=b)or(c=a)or(b=c) then
k:=k+1;
write(k,' ');
end;
end;
END.
-----------------
Перевірка
Вивід:252
-----------------

2.

Дано номер місяця. Виведіть на екран кількість днів у цьому місяці (рік не високосний).
program control;

uses crt;
var a:integer;
BEGIN
writeln('N misyacya');
read(a);
if (a=1) then writeln('31');
if (a=2) then writeln('28');
if (a=3) then writeln('31');
if (a=4) then writeln('30');
if (a=5) then writeln('31');
if (a=6) then writeln('30');
if (a=7) then writeln('31');
if (a=8) then writeln('31');
if (a=9) then writeln('30');
if (a=10) then writeln('31');
if (a=11) then writeln('30');
if (a=12) then writeln('31');
readln;
readln;
END.
---------------------
Перевірка
Вхід :5
Вихід :31
---------------------

3.

Знайдіть 6 найбільших натуральних числа, що менші за 8000, кратні 81 та закінчуються на цифру 3.
program control_3;

uses crt;
var i,k:integer;
BEGIN
clrscr;
for i:=8000 downto 1 do
begin
if(i mod 81=0)and(i mod 10=3)then
begin
writeln(i);
k:=k+1;
end;
if k=6 then break;
end;
END.
--------------------------------------
Перевірка
Вихід: 7533,6723,5913,5103,4293,3483.
--------------------------------------