Var i: integer; begin for i: =1 to 10 do writeln(,i,'*7=',i*7); end.
Спасибо
Ответ дал: Гость
(63+12): 3=25
(39-18)*4=84
750-12: 3=746
420+9*6=474
Ответ дал: Гость
uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.
Популярные вопросы