Вывести на экран все двузначные числа,кратные 11 и найти их сумму

@Лейла · Регистрация: 19.01.2013

Знаю надоела)
Вывести на экран все двузначные числа,кратные 11 и найти их сумму.

Kodzaev · 28.01.2013, 13:52

Pascal

Var
  i: Byte;
  s: Integer;
BEGIN
For i:=10 to 99 do
If i mod 11=0 Then
begin
  Write(i,' ');
  s:=s+i;
end;
Writeln;
Writeln('Сумма = ',s);
END.

@Jazon_deenAlt · 28.01.2013, 13:53

Pascal

uses crt;
var
i,s:integer;
begin
s:=0;
for i:=1 to 9 do begin
writeln(i*11);
s:=s+(i*11);
end;
writeln(s);
readln;
end.

@Лейла · 28.01.2013, 18:43 **[ТС]**

Спасибо огромное,ребят!
Выручаете..

Комментарий модератора

Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста

@Лейла 0 / 0 / 0 Регистрация: 19.01.2013 Сообщений: 11
		1
	Вывести на экран все двузначные числа,кратные 11 и найти их сумму 28.01.2013, 13:50. Показов 7156. Ответов 3 Метки нет (Все метки) Знаю надоела) Вывести на экран все двузначные числа,кратные 11 и найти их сумму. 0

Опции темы