Подсчитать сумму чисел от 100 до 999 вывести результат В программе---- Pascal

Знания

Информатика

1 ответ:

Bad White [126]4 года назад

0 0

// PascalABC.NET 3.0, сборка 1128
begin
Writeln('Сумма чисел от 100 до 999 равна ',Range(100,999).Sum)
end.

Тестовое решение:
Сумма чисел от 100 до 999 равна 494550

Читайте также

Написать на языке Паскаль программу для вычисления функции при любом значении х. sin 3,2+sqrt 1+x y=-------------------------- |

Esklarmonda [7]

Var
x,y:real;
begin
Write('x='); Read(x);
y:=(3.2*sin(x)+sqrt(1+x))/abs(5);
Writeln('y=',y)
end.

0 0

3 года назад

Выполнить прикрепленное задание.

Батяев Егор [235]

program summa;

var

i, n:integer;

s, k:real;

begin

writeln('введите число n=');

read(n);

s:= 0;

k := 0;

for i := 1 to n do

begin

k:= k + sin(i);

s:= s + 1/k;

end;

writeln('Сумма S= ',s:0:2);

readln;

end.

0 0

2 года назад

Які інструменти для фільтрації надає табличний процесор?

МаликаИ [210]

Я в этом плохо что понимаю, так что не знаю какие инструменты. Знаю что пр

0 0

4 года назад

Какая информация нужна при ремонте квартиры

Tanytan

При ремонте квартиры необходимо знать метраж (ширина, длина комнат, высота потолков), каждая комната представляет собой квадрат или прямоугольник. Для покупки строительных материалов это важно знать. Необходимо также уточнить, где проложены коммуникации (электропроводка и пр.).

0 0

4 года назад

(Pascal) Задать координаты точки и вывести, принадлежит ли точка заштрихованной (желтой) области или нет.

Алия Наконечная [6]

Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
end.

0 0

1 год назад