Задачи на оператор цикла repeat

@Garak4 · Регистрация: 29.03.2012

Author24 — интернет-сервис помощи студентам

Задача 1.
Составить программу, которая выводит все двухзначные числа кратные 8
Задача 2.
Билет называют "счасливым", если в его номер сумма первых трёх цифр равна сумме последних трёх. Пожсчитать число тех "счастливых" билетов, у которых сумма трёх цифр равна 13

@Puporev · 29.03.2012, 11:35

Сообщение от Garak4

Составить программу, которая выводит все двухзначные числа кратные 8

Delphi

i:=16;
repeat
Memo1.Lines.Add(IntToStr(i));
i:=i+8;
until i>96;

@Puporev · 29.03.2012, 11:54

2.
Добавлено через 16 минут

Delphi

var i,k:integer;
begin
i:=139;
k:=1;
repeat
i:=i+1;
if(i div 100)+(i div 10 mod 10)+(i mod 10)=13
then k:=k+1;
until i>999;
k:=k*k;
Showmessage('Кол. счастливых с суммой 13='+IntToStr(k));
end;

@Jazon_deenAlt · 29.03.2012, 12:04

Garak4, а можно через 2 репита задачу решать?

@Garak4 · 29.03.2012, 12:12 **[ТС]**

Сообщение от Jazon_deenAlt

Garak4, а можно через 2 репита задачу решать?

Да можно, кстати забыл напомнить можно сделать её в программе console application и остальные задачи
while, for.

@Puporev · 29.03.2012, 12:15

Сообщение от Garak4

забыл напомнить

Сопли меньше нужно жевать...

@Garak4 0 / 0 / 0 Регистрация: 29.03.2012 Сообщений: 11
		1
	Задачи на оператор цикла repeat 29.03.2012, 11:24. Показов 3750. Ответов 5 Метки нет (Все метки) Задача 1. Составить программу, которая выводит все двухзначные числа кратные 8 Задача 2. Билет называют "счасливым", если в его номер сумма первых трёх цифр равна сумме последних трёх. Пожсчитать число тех "счастливых" билетов, у которых сумма трёх цифр равна 13 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	29.03.2012, 12:04	4
	Garak4, а можно через 2 репита задачу решать? 0

@Garak4 0 / 0 / 0 Регистрация: 29.03.2012 Сообщений: 11
	29.03.2012, 12:12 [ТС]	5
	Сообщение от Jazon_deenAlt Garak4, а можно через 2 репита задачу решать? Да можно, кстати забыл напомнить можно сделать её в программе console application и остальные задачи while, for. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.03.2012, 12:15	6
	Сообщение от Garak4 забыл напомнить Сопли меньше нужно жевать... 0

Опции темы