2. Среди четырехзначных чисел найти те, в которых все цифры разные. 3. * Найти количество четырехзначных чисел, в которых сумма цифр равна 13. 2. Сколько цифр 1 во всех трехзначных числах.


Чтобы посмотреть этот PDF файл с форматированием и разметкой, скачайте его и откройте на своем компьютере.
Цикл с параметром

Повторение
:

1.

Что такое цикл?

2.

В чем особенность цикла с
параметром?

3.

Как он работает?

4.

Что будет в результате работы
команды?

For i:=1
0

to 57 do write(‘*’);


Пример
.
Найти сумму чисел от 1 до 40.



S:=0;

For a:=
1

to 4
0

do s:=s+a;

Writeln(
s);



Задание
:

1.

Среди четырехзначных чисел найти
все, в которых 3 цифры одинаковые, а
четвертая отличается (1222, 2122).

2.

Среди четырехзначных чисел найти те,
в которых все цифры разные.

3.

* Найти количество четырехзначных
чисел, в которых сумма цифр равна 13.

V
ar


i, k: integer;

x,y,z,d : byte;

begin

k:=0;

for i:=1000 to 9999 do

begin

x:= i div 1000;

y:= i div 100 mod 10;

z:= i div 10 mod 10;

d:= i mod 10;

If (x=d) and (y=z) then
k:=k+1;

end;

writeln(k);

end.


Var


i,k : integer;

x,y,z : byte;

begin

k:=0;

for i:
=100 to 999 do

begin

x:=i div 100;

y:=i div 10 mod 10;

z:= i mod 10;

If x=1 then k:=k+1
;

If y=1 then k:=k+1
;

If z=1 then k:=k+1
;

end;

writeln(k);

Readln;

end.

1.

Найти количество четырехзначных чисел
«перевертышей» (Например, число 2112).

2.

Сколько цифр 1 во всех трехзначных
числах.

3.

Среди четырехзначных чисел найти все, в
которых 3 цифры одинаковые, а четвертая
отличается (1222, 2122).

4.

Среди четырехзначных чисел найт
и те
(вывести количество), в которых все цифры
разные.


1.

Найти количество четырехзначных чисел
«перевертышей» (Например, число 2112).

2.

Сколько цифр 1 во всех трехзначных
числах.

3.

Среди четырехзначных чисел найти все, в
которых 3 цифры одинаковые, а четвертая
отличается (1222, 2122).

4.

Среди четырехзначных чисел найти те
(вывести количество), в которых все цифры
разные.


1.

Найти количество четырехзначных чисел
«перевертышей» (Например,
число 2112).

2.

Сколько цифр 1 во всех трехзначных
числах.

3.

Среди четырехзначных чисел найти все, в
которых 3 цифры одинаковые, а четвертая
отличается (1222, 2122).

4.

Среди четырехзначных чисел найти те
(вывести количество), в которых все цифры
разные.


1.

Найти ко
личество четырехзначных чисел
«перевертышей» (Например, число 2112).

2.

Сколько цифр 1 во всех трехзначных
числах.

3.

Среди четырехзначных чисел найти все, в
которых 3 цифры одинаковые, а четвертая
отличается (1222, 2122).

4.

Среди четырехзначных чисел найти те
(вы
вести количество), в которых все цифры
разные.


1.

Найти количество четырехзначных чисел
«перевертышей» (Например, число 2112).

2.

Сколько цифр 1 во всех трехзначных
числах.

3.

Среди четырехзначных чисел найти все, в
которых 3 цифры одинаковые, а четвертая
отличает
ся (1222, 2122).

4.

Среди четырехзначных чисел найти те
(вывести количество), в которых все цифры
разные.



Приложенные файлы

  • pdf 43641309
    Размер файла: 306 kB Загрузок: 1

Добавить комментарий