HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ОФФТОП_OLD > Болталка
Перезагрузить страницу Народ помогите с информатикой(сорь если не там тему сделал)
   
 
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 10.02.2010, 21:29
total90
Участник форума
Регистрация: 30.09.2009
Сообщений: 148
Провел на форуме:
11581319

Репутация: 241
Отправить сообщение для total90 с помощью ICQ
По умолчанию
кстати намного проще было бы написать с помощю repeat until
 

  #12  
Старый 10.02.2010, 21:55
root_sashok
Познавший АНТИЧАТ
Регистрация: 04.08.2008
Сообщений: 1,359
Провел на форуме:
8220635

Репутация: 1593


Отправить сообщение для root_sashok с помощью ICQ
По умолчанию
Код:
uses crt;
var i, s, k: integer;
begin 
clrscr;
s:=0;
i:=0;
while (s < 50) and (i < 5) do 
begin
write ('Введите число: ');
readln (k);
i:=i+1;
s:=s+k;
end;
end.
Код:
Введите число: 10
Введите число: 20
Введите число: 30

[Процесс завершен]
Код:
Введите число: 51

[Процесс завершен]
 

  #13  
Старый 10.02.2010, 22:15
SinatoR
Новичок
Регистрация: 06.11.2009
Сообщений: 3
Провел на форуме:
58213

Репутация: -10
По умолчанию
root_sashok СПАСИБО!!!
 
 
Страница 2 из 2 < 1 2



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ