1. Информатика
  2. Найти сумму всех положительных

Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от a до b на языке паскаль программку

Nastia2k Nastia2k    2   31.08.2019 14:00    0

Ответы
nastyamerteshoНастя nastyamerteshoНастя  06.10.2020 07:54
Var a,b,s,p,x: integer;
begin
p:=1;
s:=0;
read (a,b);
for x:= a to b do begin
if x>0 then  s:=s+x;
if x<0 then p:=p*x;
end;
writeln(s,p);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Нукку95 Нукку95  01.12.2020 23:09
Які знаки називають недрукованими й чому...
Aislu111 Aislu111  01.12.2020 23:10
Как в паскале задать значения в матрице? Пример на С: int matrix[3][3] = { {1,2,3}, {2,3,1}, {34,0,4}, };...
gsergey1 gsergey1  17.05.2021 11:12
Соответствующих типов переменных укажитеa=2 , Name= Aport , b=5.87, n=Trueцелое (int) реальный (float) логический (bool)дорожный (str)​...
zarinazaac30 zarinazaac30  17.05.2021 11:12
) для вычисления выражений: 1) Chr (Ord ( B )) 2) Ord ( A ) -Ord ( z ) 3) Ord ( A ) -Ord ( a ) = Ord ( z ) -Ord ( z ) 4) Ord ( 9 ) -Ord ( 0 ) 5) Chr (Ord ( а ) + Ord ( R ) - Ord...
angeladavletsi angeladavletsi  17.05.2021 11:12
Подпиши цифровые носители информации контрольная по информатики​...
maksilyutich maksilyutich  01.10.2019 17:28
Можно с дано,формулами и решением умоляю​...
Bbob Bbob  01.10.2019 17:28
Дано натуральное k . вывести на экран дисплея k -ю цифру последовательности в которой выписаны подряд квадраты всех натуральных . нужна блок-схема...
замёрзший замёрзший  01.10.2019 17:29
При работе в putty выходит строка [? 1h[? 1h[1; 23rmodifiedпотом [4; 21 rmчто это? как убрать? работаю на планшете, а не на компьютере...
Vinokurov03 Vinokurov03  01.06.2019 08:50
Составить алгоритм решения(блок-схема) уравнения ax2+bx+c=0 !...
Mas4323 Mas4323  27.04.2020 11:42
Телеконференция - это 1. обмен письмами в глобальных сетях 2. информационная система с гиперсвязями 3. система обмена информацией между абонентами компьютерной сети 4. служба...

Популярные вопросы