Впаскале! в любом трехзначном числе удалить первую цифру, а в оставшемся 2-х значном числе переставить цифры.

104

160

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

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

Alexandra335

Информатика

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

Var a,a1,a2,a3: integer; begin read(a); a1: =a div 100 mod 10; a2: =a mod 100 div 10; a3: =a mod 10; writeln (a3,a2); end.

owe4kinad

Информатика

4,5(42 оценок)

2) uses crt; var a: array[0..200] of integer; i,max,s: integer; begin clrscr; randomize; writeln('дан массив: '); for i: =0 to 200 do begin a[i]: =-100+random(150); write(a[i],' '); end; s: =0; max: =a[0]; for i: =0 to 200 do begin if a[i] > max then max: =a[i]; if a[i]> =0 then s: =s+1; end; writeln; writeln('максимальный элемент массива = ', max); writeln('кол-во положительных элементов = ',s); readln; end.