распределите объекты по группам в зависимости от их вида животные магнитофон компьютер автомобиль человек

Відповідь:

Живые: жывотные, человек

Неживые: магнитофон, компьютер, автомобиль

Пояснення:

ну хз, самое первое, что в голову пришло

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.