4 года назад

Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел N, затем вводится ровно N целых чисел.

1 ответ:

0 0

uses crt;
var a,n,s:integer;
begin
clrscr;
write('Введите количество чисел: '); read(n);
writeln('Введите числа:');
for n:=1 to n do
begin
read(a);
s:=s+a;
end;
write('Сумма введенных чисел: ',s);
end.

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

Помогите пожалуйста!!!Нужно Найти сумму элементов массива вещественных чисел, имеющих нечётные номера.Размерность массива -20.За

JRingo

const
N = 20;
var
a: array[1..N] of integer;
i, s: integer;
begin
for i := 1 to N do begin
a[i] := 100 + random(100);
write(a[i], ' ');

if(i mod 2 <> 0) then s := s + a[i];
end;
writeln;writeln;
writeln(s);
end.

0 0

4 года назад

Чтобы прочесть слово, нужно пройти по клеткам так, как ходит шахматная фигура конь, начиная ход с цифрыПомогите пожалуйста дам 5

юркон

1.алгоритм

2.мегагерц

3.величина

4.гигабайт

5.дисковод

6 документ

7 оператор

8 удаление

9 парамент

10 протакол

11 редактор

12 рекурсия

13 сумматор

14 телетайп

15 картридж

16 лексикон

17 носитель

18 шифратор

0 0

4 года назад

Дан массив,состоящий из 20 элементов.Необходимо найти элементы кратным 5 и найти сумму Сделать блок-схему и программу,пжл!) ОЧЕН

lavv

Var
c:array [1..20] of integer;
i,n:integer;
Begin
randomize;
for i:=1 to 20 do
c[i]:=random(50);
for i:=1 to 20 do
write(c[i],' ');
for i:=1 to 20 do
if c[i] mod 5=0 then n:=n+c[i];
writeln;
writeln('Сумма: ',n);
<span>End.</span>

0 0

4 года назад

Определить, можно ли квадрат со стороной a поместить в окружность заданного радиуса R? Входные данные: Во входном потоке задано

VlaDOvaNs

Программа на Паскале:
Program BiFi;
Var R,a:real;
Begin
readln(R,a);
if a<=(R*sqrt(2)) then writeln('Yes');
else writeln('NO');
readln;
end.

0 0

4 года назад

1)Напишите программу, которая вводит натуральные числа a и b , и выводит сумму квадратов натуральных чисел в диапазоне от a до b

Йорген Тихий [24]

Обычно решают на Pascal, но я напишу на C++, он мне роднее)). Я конечно немножко по-другому реализовал (в плане ввода значений), но поставленную задачу выполняет.
1)
#include <stdio.h>
#inlcude <conio.h>
#include <iostream>
using namespace std;
int main()
{
long a, b, i, sum=0;
cin>>a; // Вводишь число a
cin>>b; // Вводишь число b
for (i=a;i<=b;i++)
{
sum=sum+(i*i);
}
cout<<sum; // выводим сумму квадратов чисел
_getch();
}

2)
#include <stdio.h>
#inlcude <conio.h>
#include <iostream>
using namespace std;
int main()
{
long a,b,c,d,i;
bool z=false;
cin>>a;
cin>>b;
cin>>c;
cin>>d;
for (i=10000; i<=99999; i++)
{
if (i % a==b && i % c==d) {z=true; cout<<i<<" ";}
}
if (z==false) {cout<<"-1";} // Выводится если нет чисел
_getch();
}

0 0

4 года назад