Program z_number; uses crt; var pr,i: integer; begin clrscr; pr: =1; i: =11; {первое двузначное нечетное число} repeat pr: =pr*i; i: =i+2; until(i> 100); writeln('произведение двузначных нечетных чисел ',pr); readln; end.
Спасибо
Ответ дал: Гость
язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b); readln (c); min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.
Ответ дал: Гость
var a,b: string; begin cls; read(a); b: =a; write('b')end.
Популярные вопросы