Написание программы.

24.05.2010, 23:42. **Показов** 1091. **Ответов** 1

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

Дано 3 числа.Найти сумму нечетных чисел меньших 11.

@Mиxaил · 25.05.2010, 00:36

Pascal

var a:array[1..3] of integer;
    i,sum:integer;
begin
for i:=1 to 3 do
   read(a[i]);
sum:=0;
for i:=1 to 3 do
   if odd(a[i]) and (a[i]<11) then sum:=sum+a[i];
writeln('sum = ',sum);
readln;
end.

DonFerrari
		1
	Написание программы. 24.05.2010, 23:42. Показов 1091. Ответов 1 Метки нет (Все метки) Дано 3 числа.Найти сумму нечетных чисел меньших 11.

	25.05.2010, 00:36

Опции темы

Написание программы.

Решение