Паскаль. использование условного оператора в теле операторов цикла с условием и после него - Помощь студентам

машко · 21.06.2009, 23:10

Дано натуральное число. Определить суму квадратов его цифр.

задачка паскаль

Greblin · 22.06.2009, 00:52

Код:

program dsqr;

var n, s: integer;

begin
write('Vvedite chislo: ');
readln(n);
s := 0;
repeat
  s := s + sqr(n mod 10);
  n := n div 10;
until n = 0;
writeln(s);
end.

21.06.2009, 23:10	#1
машко Новичок Джуниор Регистрация: 19.06.2009 Сообщений: 10	Паскаль. использование условного оператора в теле операторов цикла с условием и после него Дано натуральное число. Определить суму квадратов его цифр. задачка паскаль Последний раз редактировалось KORN; 22.06.2009 в 04:20. Причина: пользуемся правкой

22.06.2009, 00:52	#2
Greblin Меркантильный кю Участник клуба Регистрация: 02.02.2008 Сообщений: 1,001	Код: `program dsqr; var n, s: integer; begin write('Vvedite chislo: '); readln(n); s := 0; repeat s := s + sqr(n mod 10); n := n div 10; until n = 0; writeln(s); end.` Росли вроде умными, выросли дурнями... (c)А.Васильев

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
паскаль, операторы цикла с условием	машко	Помощь студентам	3	22.06.2009 10:01
использование условного оператора после операторов цикла с условием	машко	Помощь студентам	8	21.06.2009 23:59
использование условного оператора в теле оператора цикла с условием	машко	Помощь студентам	2	21.06.2009 23:55
Использование операторов цикла	кася	Паскаль, Turbo Pascal, PascalABC.NET	3	02.05.2008 00:32