//PascalGUI
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник
3), т. к. логическое "или" ложно только тогда, когда ложны оба высказывания
51=101001
AB=10101011
101001+10101011=11111100(2)
Что-то бредятина какая-то :D
скорей всего, модем не может быть источником (если, конечно, в него не вставляется флешка, естественно с вирусом)
ну или же уничтожение компьютерных вирусов ну никак не может быть источником...
Var
A: array [1..10] of integer;
min,i:integer;
begin
i:=1
while i<11 do
begin
readln(A[i]);
i:=i+1;
end;
i:=1;
n:=A[1];
repeat
if min>A[i] then
min:=A[i]
i:=i+1;
until I=10;
A[10]:=min;
end