Текстовый процессор может изменять шрифт удалять красить заменять сохранять форматировать и много много еще а редактор может только редактировать
"Страны мира";
СТРАНА – символьный
СТОЛИЦА – символьный
ПЛОЩАДЬ – числовой
НАСЕЛЕНИЕ – числовой
ПОСЕЩАЛ – логический
"Мои одноклассники";
ФАМИЛИЯ – символьный
ИМЯ – символьный
АДРЕС – символьный
ТЕЛЕФОН – символьный
РОДИЛСЯ – дата
"Кинофильмы";
НАЗВАНИЕ – символьный
СТРАНА – символьный
ЖАНР – символьный
РЕЖИССЕР – символьный
ДУБЛИРОВАН – логический
"Телефонный справочник";
ФИО – символьный
АДРЕС – символьный
НОМЕР – числовой
"Мои посещения врача".
ДАТА – дата
ДИАГНОЗ – символьный
ЛЕЧЕНИЕ – символьный
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).
Pairwise.Where(t -> t[0] * t[1] < 0).Count;
Println($'Последовательность меняет знак {n} раз(а).')
end.
Под определение "организация" здесь подходит только 2 и 4. Но 2 занимается веб-дизайном, тогда ответ - 4.
Program p;
var
a,b,c,s: integer;
begin
writeln('введите длину:');
readln(a);
writeln('введите диагональ:');
readln(c);
b := sqrt((sqr(c) - sqr(a)));
s := a * b;
writeln('площадь прямоугольника: ', s);
end.