Среда, 08.01.2025
Pascal 4 All
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Категории каталога
Задачки циклы и условия [27]
Простые задачки, циклы, условия.
Наш опрос
А вы знали, что кликнув на обьявление в правом блоке раз в день Вы поможете сайту?
Результаты | Архив опросов
Всего ответов: 332

Главная » Статьи » Простые » Задачки циклы и условия

  
Шары в пирамиде

Program Shari;
Uses CRT;
Var N: Byte;
    S: Word;
Begin
ClrScr;
Write('Введите N: '); ReadLn(N);
Repeat
S := S + N * N;
Dec(N);
Until N = 0;
Writeln('Шаров в пирамиде: ', S);
ReadKey;
End.

Источник:

Категория: Задачки циклы и условия | Добавил: Seqular (22.09.2007) | Автор: Дмитрий
Просмотров: 858 | Рейтинг: 5.0/1 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2025
Используются технологии uCoz
style=