Регистрация
Саня200763
11.02.2022 08:56
Информатика
Есть ответ 👍

Решите задачу: Даны целые a,b,c. Вычесли произведение и сумму этих чисел. В каждом полученном числе выдели последнюю цифру и сложи их ТОЛЬКО ЭТО УРОК ИНФОРМАТИКА.​

218
317
Посмотреть ответы 1

Ответы на вопрос:

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

решение #1

var a: array[1..10] of integer;

i,s: integer;

begin

s: =0;

for i: =1 to 10 do

read(a[i]);

for i: =1 to 10 do

s: =s+a[i];

writeln(s);

end.

 

в этом решении вводится 10 целых чисел, и считается их сумма.

пример

ввод

1 2 3 4 5 6 7 8 9 10

вывод

55

 

решение #2

var a: array[1..1000] of integer;

i,s,n: integer;

begin

read(n);

s: =0;

for i: =1 to n do

read(a[i]);

for i: =1 to n do

s: =s+a[i];

writeln(s);

end.

 

в этом решении сначала вводится n - количество элементов в массиве затем сам массив и выводится ответ

пример

ввод

8

1 2 3 4 5 6 7 8

вывод

36

 

решение #3

var a: array[1..10] of integer;

s,i: integer;

begin

s: =0;

for i: =1 to 10 do begin

randomize;

a[i]: =random(2001)-1000

write(a[i],' ');

end;

for i: =1 to 10 do

s: =s+a[i];

writeln;

writeln(s);

end.

 

в этом решении программа сама генерирует массив из 10 чисел в который входят числа от -1000 до 1000

пример

ввод

 

вывод

0 5 851 -1000 999 515 66 -786 -55 545

1140

 

вопросы, недочеты в лс

 

 

Популярно: Информатика