Это текст
........................
Var k,summa:integer;
begin
for k:= 15 to 90 do
if k mod 2 =0 then
summa:= summa + 2*k;
writeln(summa);
end.
Региональные компьютерные сети.
Локальные сети не позволяют обеспечить совместный доступ к информации пользователям, находящимся, например, в различных частях города. На помощь приходят региональные сети, объединяющие компьютеры в пределах одного региона (города, страны, континента).
Шахматиста знают и футболист, и тусовщик. Андрей не знает Мишу, значит, Миша - не шахматист [1]. Тусовщика тоже все знают, поэтому Миша - не тусовщик. Значит, Миша - футболист [3]. Шахматист и Миша знакомы, значит, Андрей - не шахматист [4]. Поэтому Шахматист - Саша, а Андрей - тусовщик [5].
Таблица приведена во вложении.