Нарисуй в окне цепочку слов так, чтобы все эти утверждения были истинными: Каждое слово этой цепочки имеет длину больше 6. Длина
Нарисуй в окне цепочку слов так, чтобы все эти утверждения были истинными: Каждое слово этой цепочки имеет длину больше 6. Длина этой цепочки слов больше 3. В этой цепочке все слова разные. Каждое слово этой цепочки - русское название одного из месяцев года.
Декабрь, февраль, сентябрь, октябрь! декабрь 7 букв февраль 7 букв сентябрь 8 букв октябрь 7 букв в цепочке больше трех слов, названия месяцев, русские
Program pr1; var i,b:integer; a,s:real; begin readln(b); for i:=1 to b-9 do begin readln(a); if (a mod 3 = 0) and (a mod 2 <> 0) then s:=s+a; end; writeln(s); end.