На цикл while: №1. найти произведение всех четных чисел последовательности, оканчивающейся нулем (0 - признак окончания ввода №2. найти количество круглых чисел в последовательности, которая оканчивается числом 10000. №3. найдите, сколько раз встречается число 7 в последовательности, оканчивающейся на -1. №4. найти сумму квадратов всех чисел последовательности целых, окончание ввода - 0. заранее

1.var a,b:integer;
begin
writeln('введите числа (0 признак окончания ввода)');
readln(a);
b:=1;
while (a<>0) do begin
readln(a);
if (a mod 2 = 0) and (a<>0) then b:=b*a;
end;writeln('произведение чётных  чисел последовательности ',b);
end.
2.var a,b:integer;
begin
b:=0;
a:=1;
while (a<=10000) do begin
if (a mod 10 = 0) then b:=b+1;
a:=a+1;
end;
writeln('количество круглых чисел ',b);
end.
3.var a,b:integer;
begin
writeln('введите числа (1 признак окончания ввода)');
readln(a);
b:=0;
while (a<>1) do begin
readln(a);
if (a mod 7 = 0) then b:=b+1;
end;
writeln('цифра 7 встречается ',b,' раз');
end.
4.var a,b:integer;begin
writeln('введите числа (0 признак окончания ввода)');
b:=0;
a:=1;
while (a<>0) do begin
readln(a);
if (a<>0) then b:=a*a+b;
end;writeln('сумма квадратов ',b);
end.

Это обычный дешифратор. С увеличением А появляется 0 на очередном Q. Все остальные Q =1 (потому, что Q с инверсией).

А0 А1 А2 Q0 Q1 Q2 Q3 Q4 Q5 Q6 Q7

0    0   0    0    1     1     1     1     1     1     1

1     0    0   1    0    1     1     1     1     1     1

0    1     0    1     1    0    1     1     1     1     1

1     1     0   1     1     1    0    1     1     1     1

0    0    1    1    1      1     1    0    1     1     1

1     0    1     1    1     1     1     1     0   1     1

0    1     1      1    1     1     1     1      1   0    1

1    1     1      1    1      1     1    1      1    1     0

Объяснение:

Рисовать здесь не умею, но думаю понятно.

1в.

1)Код Pascal

begin

write('N = ');

readln(N); { <-- вводим трехзначное число }

writeln;

N := N mod 100; { <== Последние две цифры }

{ Выводим последнюю и среднюю цифры числа: }

writeln('Последняя цифра: ', N mod 10);

writeln('Средняя цифра: ', N div 10);

readln

end.

2)

var

N: word; { Трехзначное число }

t1, t2, t3: byte; { Цифры трехзначного числа }

begin

write('Введите трехзначное число: ');

readln(N); { <-- вводим трехзначное число }

writeln;

t3 := N mod 10; { <== третья цифра }

N := N div 10; { <== число созданное первыми двумя цифрами }

t2 := N mod 10; { <== вторая цифра }

t1 := N div 10; { <== первая цифра }

writeln('Сумма цифр: ', t1 + t2 + t3);

readln

end.