Напишите программу, которая считывает три целых числа и выводит на экран их сумму. Каждое число записано в отдельной строке. Формат входных данных
На вход программе подаётся три целых числа, каждое на отдельной строке.

Формат выходных данных
Программа должна вывести сумму введенных чисел.

Sample Input 1:

9
11
2
Sample Output 1:

22
Sample Input 2:

-1
10
1
Sample Output 2:

10
Sample Input 3:

-7
-10
-3
Sample Output 3:

-20

👇

Увидеть ответ

Ответ:

Cyndyma

19.06.2022

a = int(input())

b = int(input())

c = int(input())

s = a + b + c

print(s)

4,4(22 оценок)

Открыть все ответы

Ответ:

davidgjggjj

19.06.2022

const n=6;
var
m,k,i: integer;
var a: array[1..n] of integer;
begin
m:=integer.MinValue;
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(20);
write (a[i]:3);
if a[i]>m
then begin m:=a[i]; k:=i; end;
end;
writeln;
writeln ('Наибольший элемент массива: a[',k,'] = ',m);
end.

Исходный массив
2 1 12 12 16 4
Наибольший элемент массива: a[5] = 16

const n=50;
var
sa: real;
i,k: integer;
var a: array[1..n] of integer;
begin
sa:=0; k:=0;
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(3);
write (a[i]:2);
sa:=sa+a[i];
end;
sa:=sa/n;
writeln;
writeln ('Среднее арифметическое = ',sa);
writeln;
writeln ('Элементы массива, равные среднему арифметическому:');
for i:=1 to n do begin
if a[i]=sa
then begin writeln ('a[',i,'] = ',a[i]); k:=1; end;
end;
if k=0 then writeln ('Нет таких элементов');
end.

Исходный массив
0 0 0 0 1 2 1 2 1 1 2 1 1 0 0 1 0 0 1 2 1 1 1 2 2 1 0 1 1 2 0 1 1 0 0 0 2 2 1 1 2 1 2 0 2 1 2 1 1 2
Среднее арифметическое = 1
Элементы массива, равные среднему арифметическому:
a[5] = 1
a[7] = 1
a[9] = 1
a[10] = 1
a[12] = 1
a[13] = 1
a[16] = 1
a[19] = 1
a[21] = 1
a[22] = 1
a[23] = 1
a[26] = 1
a[28] = 1
a[29] = 1
a[32] = 1
a[33] = 1
a[39] = 1
a[40] = 1
a[42] = 1
a[46] = 1
a[48] = 1
a[49] = 1

PS:
Как правило эта программа выводит пустой результат. Т.е. нет элементов, равных среднему арифметическому. Возможно что-то упущено в условии задачи.

4,4(23 оценок)

Ответ:

Ggogog

19.06.2022

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.Select((x,r)->(x.Where(q->q<0).Count,r));
foreach var x in b do Write(x[1]+1,')',x[0],' ')
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
40 50   4 44 10 13 39   5
10 -41 -9 38 27 -9 34   9
   8 29 37 -18 13 -41 23 -8
15 -49 -27 -31 -22 -4 46 -31
-36 36 34 -43 -33 -23 -24 -6

1)0 2)3 3)3 4)6 5)6

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var m:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',m,'] ***');
var a:=MatrRandom(m,m,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=0;
for var i:=0 to m-1 do s:=s+a[i,i];
Writeln('Ср.арифметическое равно ',s/m)
end.

Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица [5,5] ***
10 47 -5 -37 30
44 39   1 24 46
47   6 -26 -32 -16
-8 -49 18 15 22
   4   4 -48 -36 -14

Ср.арифметическое равно 4.8

4,4(4 оценок)

Это интересно:

Компьютеры-и-электроника

14.08.2022

Как поставить пароль на Google Chrome: простое решение для защиты вашей конфиденциальной информации...

Транспорт

22.10.2022

Как правильно промыть радиатор отопителя автомобиля?...

Компьютеры-и-электроника

10.06.2020

Как узнать, что ваше текстовое сообщение прочитано (на iPhone/iPad)...

Кулинария-и-гостеприимство