Упражнение 1
А) Все электроприборы работают с помощью электрического тока.
Б) Каждый школьник должен знать и неукоснительно выполнять правила поведения в школе и этикет.
В) Глаза должны находить от монитора компьютера на расстоянии 50 сантиметров, глазам необходимо давать отдохнуть каждые 10 минут.
Флешка, жесткий диск, дискета, диски.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.
Program abc;
uses crt;
var a,b,c: integer;
begin
write('Введи значение a = ');
readln(a);
write('Введи значение b = ');
readln(b);
write('Введи значение c = ');
readln(c);
writeln(a);
writeln(b);
writeln(c);
end.