Составляем и заполняем таблицу
a b c c<15?
3 25 1 да
3 25 2 да
3 28 3 да
3 31 4 да
3 34 5 да
3 37 6 да
3 40 7 да
3 43 8 да
3 47 9 да
3 50 10 да
3 53 11 да
3 57 12 да
3 60 13 да
3 63 14 да
3 67 15 нет
конец работы.
Смотрим, что у нас в ячейке b и даем ответ
Ответ: 67
условий не написано, поэтому просто решим.
а) 1012 + 112 = 1124
б) 10012 - 112 = 9900
в) 112 • 102= 11424
1)
<span>var </span>
<span>A:integer; </span>
<span>Begin </span>
<span>Readln(a); </span>
<span>If a<>0 then </span>
<span>If a<0 then writeln('a<0') else writeln('a>0') </span>
<span>Else writeln('a=0'); </span>
<span>End. </span>
2)
<span>Var </span>
<span>A,M,n:integer; </span>
<span>Begin
</span>readln(m);
readln(n);
<span>If m=n then writeln ('error') else </span>
<span>If m>n then a:=n else a:=m; </span>
<span>If (-20<=a) and (a<10) then writeln('Yes') else </span>
<span>Writeln('No');</span>
<span>End.</span>