.............................................
var
N, S: Integer;
begin
WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');
S := 0;
repeat
ReadLn (N);
if (N mod 6 = 0) and (N mod 10 = 6) then
S := S + N;
until N = 0;
WriteLn ('Сумма = ', S);
end.
Вот! Информатика 4 класс 2 часть А.В.Горячев К.И.Горина Н.И.Сурова
Многооконное приложение позволяет открыть несколько документов в одном приложении. Возможно при этом как-то манипулировать несколькими документами между собой. Например сравнить, увидеть изменения и тп Так же это экономит память
Самый яркий пример многооконности это браузер который позволяет в себе открыть много вкладок, а не открывает каждую новую ссылку в новом окне
Основной плюс - многоокность приложения разгружает панель задач и позволяет проще (хотя не всегда) переключаться между документами