Решить задания на тему "команда ветвление" НАДО, ВОТ ПРЯМ ОЧЕНЬ 7. Составить программу вычисления значения функции для любого x по желанию пользователя.
8. Вовочка любитель стрелять из рогатки, 7 раз попадал в милицию. Ввести с клавиатуры целое положительно число - № попадания. Определить результат: 4,6,7 - милиционеры вставляли новое стекло, 2,5 - новое стекло вставлял отец Вовочки, 1,3 - стекло не разбилось.
9. Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда?

канал - 5букв

телевизор,компьютер 9букв

крик - 4буквы

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

на паскале:

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.

есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);