Всеукраинский конкурс молодых программистов "Программист++"!

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Всеукраинский конкурс молодых программистов "Программист++"! » Бой №2: Turbo Pascal » Первые десять программ(каждому по 1)

Первые десять программ(каждому по 1)

Страница: 1

Сообщений 1 страница 3 из 3

1

  • Автор: Станислав Ульханов
  • Создатель и ведущий конкурса
  • Откуда: Харьков, Украина
  • Зарегистрирован: 7 Дек 2012
  • Приглашений: 0
  • Сообщений: 20
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Возраст: 46 [1979-05-12]
  • Провел на форуме:
    2 часа 19 минут
  • Последний визит:
    21 Дек 2012 12:36

Задание участнику №6 Максиму Алексеевичу Кораблёву: написать программу, которая сможет считать сумму чисел от 1 до 300.

0

2

  • Автор: Максим Кораблёв
  • Участник
  • Откуда: Харьков, Украина
  • Зарегистрирован: 8 Дек 2012
  • Приглашений: 0
  • Сообщений: 8
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Возраст: 31 [1994-06-14]
  • Провел на форуме:
    1 час 20 минут
  • Последний визит:
    9 Дек 2012 22:11

program First;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
end.

0

3

  • Автор: Станислав Ульханов
  • Создатель и ведущий конкурса
  • Откуда: Харьков, Украина
  • Зарегистрирован: 7 Дек 2012
  • Приглашений: 0
  • Сообщений: 20
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Возраст: 46 [1979-05-12]
  • Провел на форуме:
    2 часа 19 минут
  • Последний визит:
    21 Дек 2012 12:36

Максим Кораблёв
Правильно! +3 очка!

0

Страница: 1

Вы здесь » Всеукраинский конкурс молодых программистов "Программист++"! » Бой №2: Turbo Pascal » Первые десять программ(каждому по 1)