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.
1) for i:=20 to 35 writeln(i);
2) read(b);
for i:=10 to b writeln(i*i);
3) for i:=1 to 10 write(20,',');
<span>Книга - подмножество: учебник (свойство - книга для детей школьного возраста),
</span>Книга - подмножество: справочник (свойство - краткое описание объектов),<span>
Жидкость - подмножество: бензин (свойство - горючее),
Жидкость - подмножество: молоко (свойство - белое, непрозрачное),
Человек - подмножество: врач (свойство - лечит),
Человек - подмножество: строитель (свойство - умеет строить)
</span>
Емкось жесткого диска варьируется от 128 гигабайт до 4 терабайт.
Емкость CD дисков около 700 мегабайт.
Емкость DVD дисков около от 4 Гб до 7 Гб.
Емкость flash накопителей примерно от 128 мегабйт до 2 терабайт.
<span>Емкость blue-ray дисков от 25 гб до 50 гб.</span>