Решите понять не могу как решать а) 2*21+123*=*203 б) 5*55+*327=*16*4 в)21*02+*1212=*2*021 г) 4*5-136=*56 д)1536-*42=674
106
417
Ответы на вопрос:
var a:String;
i,sum:Integer;
begin
writeln('Введите последовательность чисел:');
readln(a);
a := a.Replace(' ', '');
writeln('Количество чисел:' + a.Length);
for i := 1 to a.Length do
sum := sum + strToInt(a[i]);
writeln('Сумма: ' + sum);
end.
Объяснение:
В начале я за последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.
Ввод:
1 2 3 4 5
Вывод:
Количество чисел: 5
Сумма: 15
Популярно: Информатика
-
Bagila123431.07.2020 18:36
-
BlackStyle6923.08.2021 23:07
-
SashaSmile54130.08.2022 20:12
-
Ksysoeva2009.05.2021 09:47
-
TTpopoK27.02.2020 06:34
-
jjjghhgg630.07.2022 21:50
-
antanikeeva2125.05.2023 18:56
-
Kot747606.07.2020 08:28
-
wfew12.11.2022 23:41
-
zombi1708.08.2020 08:58