Автор: 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 мин. МОЖЕТ КТО-НИБУДЬ УЖЕ ПОМОЖЕТ!!!!!!!!?????????
ЗАРАНЕЕ СПАСИБО!!!!!!!!!!!
Автор: klem4 16.05.2007 2:46
Цитата
mad.gif МОЖЕТ КТО-НИБУДЬ УЖЕ ПОМОЖЕТ!!!!!!!!????????? mad.gif
mad.gif ЗАРАНЕЕ СПАСИБО!!!!!!!!!!! mad.gif
Тебе не кажется что ты не в том положении чтобы еще тут возмущаться ? Тебе здесь
никто ничего не долженПоиск для красоты сделан ? http://forum.pascal.net.ru/index.php?showtopic=4270