Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
где ошибка (z=4.5), (x=1.236). Помогите Program myprog; const rad=3.14/180; var a, y, z, x, cos, sin:real; begin a: = (2*cos * (x-rad*30)) / (1/3 + ((sin*2) * (y+2))) ; writeln ('z=') ; readln (z) ; y: = (z*z/5 + (z*z) / 7) ; writeln (' y = ', y) ;
Ответы (1)