ДАЮ 60 БАЛЛОВ!!!!! ПОМОГИТЕ, ПОЖАЛУЙСТА, СЕГОДНЯ ВЫСТАВЛЯЮТ ОЦЕНКИ ЗА ЧЕТВЕРТЬ.МНЕ НУЖНО...

+499 голосов
142k просмотров

ДАЮ 60 БАЛЛОВ!!!!! ПОМОГИТЕ, ПОЖАЛУЙСТА, СЕГОДНЯ ВЫСТАВЛЯЮТ ОЦЕНКИ ЗА ЧЕТВЕРТЬ.МНЕ НУЖНО СЕГОДНЯ!!!!!!!!!!!!!!!!Написать программу на Паскале,используя цикл с постусловием (Repeat-until) для решения задачи. Вычислить сумму всех двухзначных чисел. S=10+2+3+...+99. И ЕЩЕ: Написать программу на Паскале используя цикл с параметром: 1) вычислите произведение первых 10 натуральных чисел 2) вывести на экран степени тройки от 0 степени до 5 например 0 0 1 3 2 9 и т.д.


Информатика (19 баллов) | 142k просмотров
Дан 1 ответ
+61 голосов

Ответ:

var

i:byte;

summ:longint;

begin

summ:=1;

for i:=10 to 99 do

summ:=summ+i;

writeln('Cymma=',summ);

end.

Объяснение:

(34 баллов)