Var a,b,c: integer; begin clrscr; write('надо написать 1 число'); read(a); write('надо написать 2 число'); read(b); if a< b then write('c=',a) else write('c=',b); end.
Спасибо
Ответ дал: Гость
program; var i: byte; str: string; begin for i: =60 to 70 do begin str: =str+chr(i) ; end; writeln(str); end.
Ответ дал: Гость
карандаш - графит; ископаемое, состоящее из угля и желез это же вещество, вставленное пруточками в деревянную трубочку, для черченья и рисованья.
Популярные вопросы