|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Чем благодарен будешь?
1. Код:
program Task1; {$APPTYPE CONSOLE} var N, I, S : Integer; begin Write('Введите N (N>0):'); ReadLn(N); S := 0; For I := 1 to N Do S := S + sqr(N+N+1); WriteLn('S = ',S); Write('Press [Enter] to close...'); ReadLn; end. 2. Код:
program Task2; {$APPTYPE CONSOLE} var N, S, C : Integer; begin S := 0; C := 0; WriteLn('Введите числа, 0 - окончание ввода:'); repeat ReadLn(N); If ((N mod 100) div 10) = 4 Then Begin S := S + N; Inc(C); End; until N = 0; WriteLn('Avg = ',S/C); Write('Press [Enter] to close...'); ReadLn; end. Последний раз редактировалось lmikle, 26.10.2016 в 22:36. |