program tsveti;
var x,y,z,w:integer;
begin
write('Введите количество девочек: '); readln(x);
write('Введите количество цветов: '); readln(y);
if (y div x) mod 2 = 0 then begin // здесь мы проверяем, не получается ли чётное количество цветков, и если получается чётное, то вычитаем остаток и количество девочек, чтобы добиться нечётного количества
w := y mod x + x;
z := (y - w) div x;
end
else begin
w := y mod x;
z := y div x;
end;
writeln('Девочкам подарили по ', z, ' шт. цветков.');
writeln('Осталось ', w, ' шт. цветков.');
end.
1,2,3)Гиперссылка (англ. hyperlink) — часть гипертекстового документа, ссылающаяся на элемент в этом документе (команда, текст, изображение, сноска) или на другой объект (файл (документ), каталог, приложение), расположенный на локальном диске или в компьютерной сети, либо на элементы этого объекта.Гиперссылка может быть добавлена к любому элементу HTML-документа. Часть текста с добавленной ссылкой по умолчанию выделяется синим цветом, как в предыдущем
предложени
4) Закладка в Word играет ту же роль, что и в обычной книге: это пометка в тексте, позволяющая легко найти нужный фрагмент снова. Вы можете создать в документе (или в сообщении Outlook) сколько угодно закладок и присвоить каждой из них уникальное имя, чтобы легко их опознавать.
5) 1) Выделите текст 2) Щелкните
правой кнопкой мыши по тексту 3) В выпадающем меню выберите опцию 4 вставить гиперссылку
Хзхз мб
program xxx;
const n=30;
var
a : array [1..n] of integer;
i, kn, kd : integer;
begin
readln(n);
kn:=0;
kd:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln (a[i]);
if a[i]=0 then kn:=kn+1;
if a[i]=2 then kd:=kd+1;
end;
for i:=1 to n do
write(a[i], ' ');
writeln();
writeln('Количество чисел равных 0 -',kn);
writeln('Количество чисел равных 2 -',kd);
readln();
end.