// фам 1 подсчитать сумму чисел от 3 до 13
// фам 2 подсчитать произведение чисел от 2 до 7
- var i,s: integer;
- begin
- for i := to do
- s:= s + i ;
- write(s) ;
- end.
// фам 2 подсчитать произведение чисел от 2 до 7
// фам 3 подсчитать произведение чисел от 2 до 7 вывести все промежуточные результаты в столбик
// фам 4 подсчитать произведение четных от 2 до 7
// фам 5 подсчитать произведение нечетных от 1 до 7
// фам 6 Напишите команду, которая зациклит программу
- var i,s: integer;
- begin
- for i := to do
- s:= s + i ;
- write(s) ;
- end.
// фам 7 Напишите команду, которая выведит через write количество раз выполнения цикла(взять любую программу)
// фам 8 Напишите программу, которая выведет 8 раз значение 7
// фам 9 Напишите программу, которая выведиет 8 раз значение 7 и слово РЕЗУЛЬТАТ
// фам 10 Напишите программу, которая выведет 8 раз значение 7 и выведет 10 раз значение 5