Можно составить такую конструкцию:
if a=b then a:=c
Что соответствует цифрам вариантов ответа: 2 3 4 1
Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
begin
y:=x mod 10;
z:=x div 10;
while z>0 do
begin
if (z mod 10)=y then f:=1;
z:=z div 10;
end;
x:=x div 10;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
<span>end.
Если использовать строковые ф-ии, то программа будет проще:
var
i,k,f:integer;
s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
begin
t:=copy(s,i+1,k-i+1);
if pos(s[i],t)>=1 then f:=1;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
end.</span>
Program Task;
Const m = 12;
Var a: Array [1..m] of Integer;
i: Integer;
Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;
Function Min(a, b: Integer): Integer;
Begin
If a < b Then
Result := a
Else
Result := b;
End;
Begin
WriteLn('Введите среднемесячные температуры за год (через пробел)');
For i := 1 To m Do
Read(a[i]);
WriteLn('Самая высокая температура летом равна ', Max(Max(a[6], a[7]), a[8]));
WriteLn('Самая низкая температура зимой равна ', Min(Min(a[11], a[12]), a[1]));
ReadLn;
End.
Формула включений исключений
19 = 16 + 10+ 6 - 5 - 6 - х + 5
х=7
<span><em>1. Информационным</em> называют <em>процесс</em>, связанный с определёнными операциями (действиями) над информацией, в ходе которых может измениться содержание информации или её форма. Это процессы сбора, обработки, хранения, накопления, передачи/получения информации.
<em>2. </em><em>Неинформационные процессы: а), г), е), к), л), н)
</em> <em>Получение информации: б), д)
</em> <em>Передача информации: з)
</em> <em>Хранение информации: м), и)
</em> <em>Обработка информации: </em><em>в), ж)</em>
</span>