Здравствуйте сыну задали задачи по паскалю а он дуб дубом в нем не могли бы вы помочь решить?

[Sciv]

Интересно, дубовую тему модераторы не закрывают. Понравилась?

А им интересно, насколько этот дуб может вырасти, если его поливать сарказмом

[Septor]

Сообщение от viktor2014

1. Найти сумму натуральных чисел от 100 до 500.

program x1;
var
a,b,s:real;
begin
readln(a, b);
s:=(ABS(b-a)+1)*(a+b)/2;
writeln(s:5:0);
readln;
end.

сам паскаль вчера первый раз увидел, может и поумнее как то решается
https://www.dropbox.com/s/ypt4g36hqu78jyl/summ.pas файлик потому что копирую отсюда а уже не работает

[Sciv]

Сообщение от Septor

program x1;
var
a,b,s:real;

Это арифметическая прогрессия с шагом единица, какой реал?

[Serge_Bliznykov]

Это арифметическая прогрессия с шагом единица, какой реал?

паскаль не позволит Вам присвоить результат операции деления (/) целочисленной переменной.
Поэтому нужно или использовать вещественный тип данных, либо приводить результат к целому число функциями, либо использовать вместо вещественного деления / операцию целочисленного деления div
Как мы видим, Septor выбрал первый вариант...

[supervova]

2. Арифметическая прогрессия задана формулой an=2n+3. Вывести первые 15 членов этой прогрессии и найти их сумму.
var
an, n, i: integer;
begin
for i:=1 to 15 do
begin
an:= 2 * i + 3;
writeln(i, ') Член Прогрессии ',an);
end
end.

[supervova]

4. Найти произведение: Р = (1 + 1/2)•(3+1/3)•(5+1/4)•... (n множителей)
Никогда не поздно начать. В

var
x, n, i: integer;
y, p, pr: real;
begin
x:= 1;
y:= 2;
pr:=1;
writeln('Сколько множетелей последовательности ');
readln(n);
for i:=1 to n do
begin
p:= (x + 1/y);
y:=y + 1;
x:= x + 2;
pr:= p * pr;
end;
writeln('Произведение последовательности ',pr);
end.

[Septor]

Сообщение от Serge_Bliznykov

паскаль не позволит Вам присвоить результат операции деления (/) целочисленной переменной.
Поэтому нужно или использовать вещественный тип данных, либо приводить результат к целому число функциями, либо использовать вместо вещественного деления / операцию целочисленного деления div
Как мы видим, Septor выбрал первый вариант...

я в этом не понимаю, я просто попробовал integer (вроде его попробовал), вылетела ошибка, поставил real ошибок нет. Проверил 1 10 высветило 55. Ок значит работает)) знаю что там защиты от дурака нет, можно дробные вводить и ответ будет неверным

[Sciv]

я в этом не понимаю, я просто попробовал integer (вроде его попробовал), вылетела ошибка, поставил real ошибок нет.

Ну вот Вам Сергей и объяснил, почему так. Теперь понимаете?

[Septor]

да, так как там деление на 2, сейчас понимаю, но тогда методом проб и ошибок выбрал верный

[Smitt&Wesson]

Не, жо..а, жо..й, а где ТС?