Три задачи - Найти сумму натуральных чисел; Протабулировать функцию; вычислить сумму

[kolya1114]

1. Найти сумму всех натуральных чисел, кратных 5, от 25 до 100 включительно.
2. Протабулюваты функцию у = 2(х-3)+7 на отрезке [-4; 2] с шагом 0,5
3. Вычислить сумму в сих недодатних чисел с промежутками целых чисел [s; p]


(x-3)--в квадрате

Помогите пожалуйста



______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Pein95]

язик? что сделали сами?

[Mad_Cat]

язик?

ну как бы ветка подразумевает

Форум программистов > Новички в программировании > Паскаль

Найти сумму всех натуральных чисел, кратных 5, от 25 до 100 включительно.

var s,x:Integer;
begin
x:=25;s:=0;
while x<=100 do
if x mod 5 =0 then inc(s,x);
inc(x,5);
end;
writeln(s);
end.

Протабулюваты функцию у = 2(х-3)+7 на отрезке [-4; 2] с шагом 0,5

var x:real;
begin
x:=-4;
while x<=2 do begin
writeln('x=',x:4:1,' y=',sqr(x-3)+7:6:2);
x:=x+0.5;
end;
end.

Вычислить сумму в сих недодатних чисел с промежутками целых чисел [s; p]

var s,p,sum:INteger;
begin
readln(s,p);sum:=0;
while s<=p do
begin
if s<0 then inc(sum,s);
inc(s);
end;
writeln(sum);
end.

[Pein95]

сори) просто я ветку перепутал) Думал помощь студентам))