INFOpudding - ИТ в образовании и не только
Четверг, 04.03.2021, 18:21
» Меню сайта
» Категории раздела
Turbo Pascal [2]
» Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

» Форма входа
Главная » Статьи » Программирование » Turbo Pascal

Цикл FOR (две простых задачи)
Задача 1. Найти все делители натурального числа.
program nat;
var n,i:integer;
begin
writeln('n='); readln(n);
for i:=1 to n do
   if n mod i =0 then write(i,' ');
end.

Задача 2. Найти сумму чисел от 1 до 256 кратных 3.
program sum;
var s,i:integer;
begin
s:=0;
for i:=1 to 256 do
   if i mod 3 =0 then s:=s+i;
writeln('s=',s)
end.
Категория: Turbo Pascal | Добавил: anna (03.09.2011) | Автор: Anna
Просмотров: 1863 | Комментарии: 2 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
» Поиск
» Учебные заведения
Брянский государственный университет академика И.Г. Петровского Брянская государственная инженерно-технологическая академия
Copyright MyCorp © 2021|Бесплатный конструктор сайтов - uCoz