Помогите решить две задачи в турбо паскале

[НаталияД]

Помогите решить две задачи в турбо паскале

Использовать цикл с параметром (For).подсчитайте произведение числ оканчивающихся на 6, в интервале от 100 до 200

Используйте оператор Repeat, выводите на рисунок сектора 90 градусов ,вписанного в прямоугольник 50 на 100 с шагом 30 пикселей на вертикали и горизонтали, до тех пор пока верхний левый угол не выйдет за нижнюю границу рисунка

 

[shrek=)]

Использовать цикл с параметром (For).подсчитайте произведение числ оканчивающихся на 6, в интервале от 100 до 200

По-моему так:

var
i:integer;
p:real;
begin
p:=1;
for i:=100 to 200 do begin
if i mod 10=6 then p:=p*i;
end;
writeln (p);
readln;
end.

 

[Mr.П 2.0]

Хай Миха хор решение но можно было и repeat until. И зарегестриуй меня на мейле


[mod2]Повторная и последующие регистрации на форуме при блокировке основного аккаунта - наказываются вечным баном. Имейте это в виду! Ваш модератор.[/mod2]

 

[Mr.П 2.0]

Это Данил

 

[shrek=)]

но можно было и repeat until

Mr.П 2.0, если ты посмотришь в стартовый топик, то увидишь

Использовать цикл с параметром (For)

 

[AlexZir]

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

Для p рекомендую определить тип longint.