Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ блок-схема к пред. задачам

Автор: nikki 16.05.2007 0:54

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

задача №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 мин.
http://forum.pascal.net.ru/index.php?showtopic=17454

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


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

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

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



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

Автор: klem4 16.05.2007 2:46

Цитата
mad.gif МОЖЕТ КТО-НИБУДЬ УЖЕ ПОМОЖЕТ!!!!!!!!????????? mad.gif



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



Тебе не кажется что ты не в том положении чтобы еще тут возмущаться ? Тебе здесь никто ничего не должен

Поиск для красоты сделан ? http://forum.pascal.net.ru/index.php?showtopic=4270 dry.gif