Подсчитайте сумму и произведение всех последовательных чисел от 1 до 10
5-9 класс
|
Срочно!!!
1)
var x:real;
begin
read (x);
writeln ((7*sqr(x)-3)/(5*x+2));
end.
2)
var x:real;
begin
read (x);
if (x<0) then writeln (abs(x));
if (x=0) then writeln (0);
if (x>0) then writeln (sqrt(x));
end.
3)
var i,sum,pr:integer;
begin
sum:=0;
pr:=1;
for i:=1 to 10 do
begin
sum:=sum+i;
pr:=pr*i;
end;
writeln (sum);
writeln (pr);
end.
первую задачу не обязательно,а вторую пожалуйста решите! задача для Паскаля
Другие вопросы из категории
Переведите из одной единицы измерения в другую
3 еще как то а вот 4 вообще не понимаю как сделать
и если возможность обьясните как сделать 1 и 2)) спасибо
Читайте также
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
3.Определить и вывести на экран количество трехзначных чисел,которые делятся без остатка на 5 и 21 одновременно.
4.спортсмен пробежал в 1-ый день тренеровки расстояние 10 км. В каждый следующий день он робегал на 3 км больше ,чем в предыдущий. Определить Суммарное расстояние.
5. в Пионерском лагере n отрядов с различным количеством детей. Сколько всего детей в пионерском лагере?