Составьте программу вычисления произведения S=12+34+56+...+101102 (в паскале)

Знания

Информатика

1 ответ:

С Екатерина [43]3 года назад

0 0

Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.

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

Составить программу на паскале, которая формирует на экране изображение. Если не сложно можно пожалуйста с комментариями. К свед

Ирина22071990

//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.

0 0

4 года назад

Помогите пожалуйста даю 30 балов !!!!

Анна3006 [19]

1. человек , робот

2. 1,2

3. надо записи посмотреть

0 0

4 года назад

Назовите родовое понятие для видового понятия "цифра"

Boby104 [7]

Может видовое понятие для родового понятия "цифра"?
Родовое : цифра
Видовое : один, два, три, четыре, пять, шесть, семь, восемь, девять. (дальше нельзя)

0 0

4 года назад

Составить программу для решения следующей задачи: Создать массив А[1..7] с помощью генератора случайных чисел и вывести его на э

Андрей87 [7]

Прикрепил во вложении....

0 0

4 года назад

Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может составьте блок схему алгоритма и программу

Дэля

//"Школьный" вариант, блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111

Var
s,n,i:integer;
begin
readln(n);
s:=0;
for i:=1 to 3 do
begin;
s:=s+n mod 10;
n:=n div 10;
end;
if s mod 2=0 then writeln('Yes') else writeln('No');
<span>end.

Пример ввода:
123
Пример вывода:
Yes</span>

0 0

4 года назад

Составьте программу вычисления произведения S=1*2+3*4+5*6+...+101*102 (в паскале)

Составьте программу вычисления произведения S=12+34+56+...+101102 (в паскале)