ОЧЕНЬ Задание 4.17. Создание списков

1. В текстовом процессоре создайте новый документ.

2. Создайте многоуровневый список «Программное обеспечение

современного компьютера»​

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

смотри скриншот                                    

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.