Program n1;
var sum,a: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if (a mod 3=0) and (a mod 10=7) then sum:=sum+a;
readln(a);
end;
write(sum);
end.
Получится 3e3f5660 ,а вообще перемножаем и записываем если больше шестнадцати в следующий разряд
While (условие) do
begin
(пишем что выполнить)
end;
Var i,k:integer;
rez:real;
begin
for i:=10 to 99 do
if (i mod 2)=0 then
begin
k:=k+1;
rez:=rez+i;
end;
rez:=rez/k;
writeln(rez:0:1);
<span>end.</span>
Ответ 2. Вот смотри. У тебя есть два множества, которые у меня на рисунке. Мысленно ну или на бумаге подели этот рисунок на части, в которых может быть икс и при этом, где буду меняться условия. т.е. вот тебе три части, для которых требуются разные условия. в самом низу там наискосок неаккуратно (извини) написала все возможные варианты. в первом тебе все равно, где множество а, у тебя уже есть единица в одном из слагаемых, во втором тоже неважно, там следование в любом случае будет равно единице. а вот в третьем нужно подобрать такое расположение множества а, чтобы не было операции следования в ноль из единицы, нужно из нуля в ноль. т.е. чтобы в момент нахождения в третьем отрезке, мы не находились в множестве а. из представленных вариантов расположения подходит только второй