Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2012, 21:12   #1
pascal011
Новичок
Джуниор
 
Регистрация: 12.09.2012
Сообщений: 1
По умолчанию Домашнее задание 11 класс!

Задали задание по информатике, таких мы еще не делали. Пытался написать код два часа, так ничего и не вышло. Очень прошу помочь, урок завтра. Нужно вывести А (то что подчеркнуто оранжевым цветом). Заранее спасибо.
Изображения
Тип файла: jpg Изображение.jpg (34.7 Кб, 137 просмотров)
pascal011 вне форума Ответить с цитированием
Старый 12.09.2012, 21:34   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Код:
begin
       a := 10; 
       k := 0;
 
       while k < 20 do begin
                if a <= 25 then
                     Inc (a,10);
                Inc (k,10);
       end;

       WriteLn (a)
end.
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Домашнее задание дмитрий12123 Паскаль, Turbo Pascal, PascalABC.NET 4 03.09.2012 22:15
Домашнее задание, программа "Банк-клиент" Scholl БД в Delphi 5 12.03.2011 19:52
помогите решить домашнее задание Nastya123 Помощь студентам 2 12.04.2009 17:35
Turbo Pascal, домашнее задание в школе popkorm Паскаль, Turbo Pascal, PascalABC.NET 3 18.11.2008 14:57