срочно решите пожалуйста задание 2 !!!!
10-11 класс
|
var
a,i:real;
begin
a:=1;
while i<10 do
begin
i:=i+0.1;
a:=a*(1+sin(i))
end;
writeln('Ответ: ',a)
end.
Другие вопросы из категории
способность экрана монитора — 960×640 точек. Найти максимальное количество
Читайте также
0.1E + 05, -33.3E - 4, 25.5E + 0?
Запишите по правилам языка Паскаль такие выражения:
a) 1.5 + 2 (x^2 + bx)
b) 3(x + 5) - x^3
_____________
2x^2 + x
Вычислить значения выражений :
a) 125 mod 30
b) 20 div 6 mod 5
Записать выражения в общепринятой форме:
a) (-2*b+3*b-4*a*c)/3*a
Пусть a, b: integer, c: real. Определите тип выражения (целый или вещественный) :
a) a/b
b) a + b
c) a + c
Чему равны значения переменных x и y после выполнения команд: x:=2 ; y:=5 ; y:=x ; x:=x+1?
Решите, пожалуйста, хоть одно какой-нибудь задание. СРОЧНО НУЖНО!
символ;б)определяет позицию заданного слова;в)подсчитывает количество вхождений заданного символа.
Задания во вложении