Заданная последовательность из 1OO чисел от 1 до 150. Определить, сколько чисел начинаются с 1 или 2 в десятичной форме.

@Buha.Ivan92 · Регистрация: 15.01.2010

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

@кот Бегемот · 16.01.2010, 01:57

Pascal

var
a,i,kol:integer;
begin
for i:=1 to 100 do
begin
writeln('vvedite chislo');
readln(a);
while a>10 do
a:=a div 10;
if (a=1)or(a=2)then inc(kol);
writeln(kol);
readln;
end.

@vad2211 · 16.01.2010, 02:08

alexevt, баланс операторных скобок не учли.

Pascal

var
a,i,kol:integer;
begin
for i:=1 to 100 do
begin
writeln('vvedite chislo');
readln(a);
while a>10 do
a:=a div 10;
if (a=1)or(a=2)then inc(kol);
end;
writeln(kol);
readln;
end.

@кот Бегемот · 16.01.2010, 08:25

Не то скопировал, спасибо

@Buha.Ivan92 7 / 7 / 3 Регистрация: 15.01.2010 Сообщений: 86
		1
	Заданная последовательность из 1OO чисел от 1 до 150. Определить, сколько чисел начинаются с 1 или 2 в десятичной форме. 16.01.2010, 01:50. Показов 928. Ответов 3 Метки нет (Все метки) Заданная последовательность из 1OO чисел от 1 до 150. Определить, сколько чисел начинаются с 1 или 2 в десятичной форме. 0

@кот Бегемот Платежеспособный зверь 8835 / 4269 / 1621 Регистрация: 28.10.2009 Сообщений: 11,407
	16.01.2010, 08:25	4
	Не то скопировал, спасибо 0

Опции темы