задача №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
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 мин.
МОЖЕТ КТО-НИБУДЬ УЖЕ ПОМОЖЕТ!!!!!!!!?????????
ЗАРАНЕЕ СПАСИБО!!!!!!!!!!!
Сообщение отредактировано: nikki -