Нужно составить программу, вычисляющую сумму только положительных чисел из трех вводимых с клавиатуры. в турбо паскале

256

306

Посмотреть ответы 3

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

Anansiy

Информатика

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

Var a,b,c,ap,bp,cp: real; begin read(a,b,c); if a> 0 then ap: =a else ap: =0; if b> 0 then bp: =b else bp: =0; if c> 0 then cp: =c else cp: =0; write (ap+bp+cp); end.

SVIATOSLAV3000

Информатика

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

Program picaso; uses crt; var a,b,c,s: integer; begin clrscr; writeln('a: '); read(a); writeln('b: '); read(b); writeln('c: '); read(c); if(a > 0) then a: =a else a: =0; if(b > 0) then b: =b else b: =0; if(c > 0) then c: =c else c: =0; s: =a+b+c; writeln(s); readln; end.

kamillagabbasoVa

Информатика

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

Var a, i: integer; procedure del(i: integer; var a: integer); var j : integer; begin a: =0; for j: =1 to i do if i mod j = 0 then inc (a) end; begin writeln; for i: =2 to 1000 do begin del(i,a); if a=2 then write (i, ' '); end; end.