А) (a mod 1 = 0) And (a mod a = 0)
Б) a mod 1 = 0
В)(a >= 10) and (a<= 99)
В большинстве случаев, скопированный объект может быть неоднократно вставлен. Или точнее сказать - почти всегда.
Но бывают программы которые после вставки очищают буфер обмена.
Так же есть программы, такие как Punto Switcher (которые переводят не правильно набранный, в другой раскладке текст) которые используют тот же буфер обмена (и если у вас в нем был скопирован какой то текст - он просто подменится этой программой).
Ну и последнее: операция "вырезать" вместо скопировать, не сохраняет содержимое в буфере обмена после его вставки, так, что в отличии от копирования, вставкв будет возможна только один раз
Var
i:integer;
begin
Writeln('Число Квадрат');
i:=14;
while i<=24 do
begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.
<em><u>Результат выполнения программы:</u></em>
Число Квадрат
14 196
16 256
18 324
20 400
22 484
24 576
2021 это 202,1*10 или 404,2*5 (вариантов бесчисленно много)
3000 это 300*10 или 30000/10
545 это 109*5 или 5450/10
Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда