IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> блок-схема к пред. задачам, вот этого я точно не дорублю
nikki
сообщение 15.05.2007 20:54
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Женский
Реальное имя: Дашка Соколова

Репутация: -  0  +


Вот я не могу дорубить как к написанному ранее, сделать БЛОК-СХЕМУ

задача №1


Цитата

var a, b : integer;
begin
for a:= 1 to 9 do
for b:= 0 to 9 do
if (a+b+(a+b)*(a+b))=a*10+b then
writeln(a,b);
readln;
end.


задача №2


Цитата
var a, b, i : integer;
begin
b:=0;
i:=1;
repeat
readln(a);
if ((i mod 2)=1) and (a>0) then
inc(b,a);
inc(i);
until a=0;
write(b);
readln;
end.


Добавлено через 7 мин.
блок-схема к пред. задачам

^^^^^^^^^^^^^^^^^
я не могу сделать блок-схему к этим прогам


КСТАТИ ВСЕМ СПАСИБО!!!!!!! НАДЕЮСЬ ОНИ РАБОТАЮТ!!!!!!!!

p.s. они были легкие????

Добавлено через 10 мин.
mad.gif МОЖЕТ КТО-НИБУДЬ УЖЕ ПОМОЖЕТ!!!!!!!!????????? mad.gif



mad.gif ЗАРАНЕЕ СПАСИБО!!!!!!!!!!! mad.gif

Сообщение отредактировано: nikki - 15.05.2007 21:03
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 1.08.2025 18:25
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"