Программа - вывести сумму положительных из трех введенных чисел Используя программу...

Question

Программа - вывести сумму положительных из трех введенных чисел Используя программу PascalABC-PascalABC.NET

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqReal(3).Where(t -> t > 0).Sum.Println

end.

3.53 -6.23 12

15.53

Comments

спасибо вам большое )

---

Пожалуйста. Достаточно просто сердечко щелкнуть

---

Если чисел не 3, просто замените на нужное количество.

Answer 2

program n1;  

var a, b, c, d: real;

begin  

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

readln (a);

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

readln (b);

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

readln (c);

if (a>0) then  

 d:= a

else

 d:= 0;

if (b>0) then

 d:= d+b  

else

 d:= d;

if (c>0) then  

 d:= d+c

else  

 d:= d;

writeln ('Сумма положительных чисел = ', d);

end.

Comments

Вы почти верно написали. Два кита: знание математики (насколько вижу по профилю, у Вас оно есть) и навыки алгоритмического мышления (об этом судить не могу пока - Ваша программа не показательна).

---

Математику я люблю, но выше муниципального этапа по математике не поднималась(

---

Сейчас хочу в ЗФТШ (заочный физтех) поступить, в конце зимы должны уже набирать учеников. Надеюсь, за год (11 класс) подтянусь

---

Я тоже не подымался в свое время выше общегородского.

---

ЗФТШ... будете если там и программирование пытаться учить - помрете под С++

---

Ничего, справимся! И не такое было!1

---

Но давайте если что, лучше в личку.... а то спам начинается

---

Если, конечно, есть что сказать/спросить )))

---

Да-да, только заметила сообщение, приношу извинения!

---

Для начал обучению программированию хватит и основ математики, а потом можно и параллелить)