Program ch0 ; uses crt; var k, z, i : integer ; begin writeln ('��å ��î'); read (k); z: =0; while k> 0 do begin z: =z*10; z: =z + (k mod 10); k: =k div 10; end; while z> 0 do begin i: =z mod 10; z: =z div 10; writeln (i, ' '); end; end. поясните

202

314

Посмотреть ответы 2

Ответы на вопрос:

ульянка37

Информатика

4,4(66 оценок)

Некорректное условие, дополни его условием или напиши мне в лс, я тебе !

alusik2005

Информатика

4,8(82 оценок)

Uses crt; var x: array[1..10]of real; i: integer; min,max: real; begin clrscr; min: =9999999; max: =-9999999; for i: =1 to 10 do begin x[i]: =exp(i*(-1))*(sqr(i)-3*i); if x[i]< min then min: =x[i]; if x[i]> max then max: =x[i]; writeln(x[i]: 1: 5); end; writeln('измененный массив с максимальным=',max: 1: 5,' и минимальным=',min: 1: 5); for i: =1 to 10 do begin if x[i]=min then writeln(max: 1: 5); if x[i]=max then writeln(min: 1: 5); if (x[i]< > min)and(x[i]< > max)then writeln(x[i]: 1: 5); end; end.