Var
sum, x : integer;
begin
sum := 0;
repeat
read (x);
if (x mod 6 = 0) and (x mod 10 = 2) then sum := sum + x;
until x = 0;
write (sum);
end.
Var i,b,s:integer;
begin
write('b = '); readln(b);
s:=0;
for i:=-10 to b do s:=s+i;
writeln('s = ',s);
end.
Пример:
b = 5
s = -40
давай будем делать как отладчик)
конец первого круга: (1 < n) (не запускается если это не правда)
i = i * 2 = 2; s = s + i = 2;
конец Второго круга : (2 < n) (не запускается если это не правда)
i = i * 2 = 4; s = s + i = 6 (2 + 4);
конец Третьего круга (4 < n) (не запускается если это не правда)
i = i * 2 = 8; s = s + i = 14 (6 + 8)
конец Четвертого круга (8 < n) (не запускается если это не правда)
i = i * 2 = 16; s = s + i = 30 (16 + 14)
Внимание: Здесь S > 14 (и будет только увеличиваться)
=> 4 < n <= 8 => Максимальное n = 8
Смотри одинарная стрелка(в одну сторону) это устройства вывода информации(от компьютера), ввод (к компьютеру), а двойная это как и ввод, так и вывод информации.
Одинарные стрелки(к компьютеру):
сканер, веб-камера, микрофон, мышь, джойстик, тачка
Одинарные стрелки(от компьютера):
колонки, монитор, принтер, наушники, встроенный динамик
Двойные стрелки:
модем, дисковод