11 апреля троечник петя взломал систему «умный дом» своего классного руководителя. из-за этого ровно в 77 утра три прибора в квартире учителя (микроволновка, электровеник и холодильник) начали воспроизводить следующее: первый прибор: «я микроволновка». второй прибор: «я не микроволновка». третий прибор: «я не электровеник». пришедший исправлять неполадки техник заметил, что сообщение ровно одного из приборов оказалось истинным. соотнеси приборы и их сообщения.

ответ: Думаю третий прибор

Объяснение:даже не знаю почему но я хочу в это верить и если по логике подумать то третий говорит истину

4.
var
a:real;
begin
write('Введите количество мегабайт=');read(a);
writeln('Количество килобайт=',a*1024);
writeln('Количество байт=',a*1024*1024);
writeln('Количество бит=',a*1024*1024*8);
end.

5.
var
a,b,c,p,S:real;
begin
write('Введите сторону a=');read(a);
write('Введите сторону b=');read(b);
write('Введите сторону c=');read(c);
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write('S=',s:5:2);
end.

6.
var
a:integer;
begin
write('Введите количество суток=');read(a);
writeln(24*a,' ','часов');
writeln(60*24*a,' ','минут');
writeln(60*60*24*a,' ','секунд');
end.

Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.

Program Sequence;

var old, new : real; 

f : boolean; 

begin
write('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.