Составить программу для нахождения суммы

Ответ или решение 1

Я напишу код на одном из базовых языков программирования, языке Pascal

writeln(‘ Введите первое число’);

writeln(‘Введите второе число’);

writeln(‘Введите третье число’);

writeln(‘Сумма трех введенных вами чисел равно: ‘, sum);

ЗАДАЧА 1. Составить блок-схему и программу вычисляющие сумму чисел от 1 до 100.

S = 1 + 2 + 3 + … + 100

ПРОГРАММА на БЕЙСИК

PRINT “Сумма чисел “

INPUT “Ввести число “, n

FOR i = 1 TO n STEP 1

PRINT “Сумма = “, S

Выполните программу на ПК и найдите сумму для

а ) n = 10 б ) n = 100 в ) n = 365

Сумма = 55 Сумма = 5050 Сумма = 66 795

Составить программу вычисляющую сумму чисел:

S = 1 + 7 + 13 + 19 + … + 55

ПРОГРАММА на БЕЙСИК

PRINT “Сумма чисел “

INPUT “Ввести число “, n

FOR i = 1 TO n STEP 6

PRINT “Сумма = “, S

Составить программу вычисляющую сумму чисел:

S = 1/2 + 1/5 + 1/8 … + 1/35

ПРОГРАММА на БЕЙСИКЕ

PRINT “Сумма чисел “

INPUT “Ввести число “, n

FOR i = 1 TO n STEP 3

PRINT “Сумма = “, S

Составить программу вычисляющую сумму чисел:

S = 2/3 + 4/6 + 6/9 + … + 22/33

Домашнее задание – составить программы для следующих задач:

Задача 1. В ычислить сумму чисел: S = 16 + 1/3 + 1/5 + 1/7 + … + 1/27

Задача 2. Вычислить сумму чисел последовательности степеней числа 2: S = 1 + 2 + 4 + 8 + 16 + . + n

Задача 3. Вычислить произведение Р = 1*3 + 2*4 + 3*5 + . + 8*10

uses crt;
var a,s:real; i:integer;
begin
clrscr;
randomize;
s:=0;
for i:=1 to 10 do
begin
a:=random(100)-50;
s:=s+a;
write(a,’ ‘);
end;
writeln;
write(‘summa=’,s);
end.

Читайте также:  Цифровая приставка включает телевизор

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *