Question

Напишите программу пожалуйста СРОЧНО!!! язык Pascal

1.Напишете программу для нахождения суммы всех цифр числа введённого с клавиатуры от 10 до 30000.


2.Значения переменных A,B,C,D водятся с клавиатуры. Выяснить, есть ли среди них переменные, имеющие нулевые значения.

Answer 1

1)

var i: integer;

n:longint;

begin

n := 0;

for i:=10 to 30000 do

n := n + i;

writeln(n)

end.

2)

var a,b,c,d: integer;

begin

write('Введите a, b, c, d через Enter');

writeln();

readln(a,b,c,d);

if (a = 0) or (b = 0) or (c=0) or (d=0) then

writeln('Есть нулевые значения')

else

writeln('Нулевых значений нету');

end.

Держи, вроде работает :) На паскаль первые в жизни писал, не суди