<em>var a, b, c :integer;</em>
<em>begin</em>
<em> read (a, b);</em>
<em> c:=a;</em>
<em> a:=b;</em>
<em> b:=c;</em>
<em> write (a, b);</em>
<em>end.</em>
Program jkfj;
var
a,b:integer;
begin
writeln ('Введите 1-ое число');
read (a);
writeln ('Введите 2-ое число');
read (b);
if a<b then write ('Большее b')
else write ('Большее a');
if a=b then write ('a и b равны')
end.
Сакура, могут быть ошибки в знаках, но в целом вроде хорошо!
Ответ:
Это в паскаль? Если да то. y:=(x*x+5)/10
1.Не употреблять пищу, находясь за компьютером.
2.Перед использованием компьютера мыть руки, чтобы не загрязнять клавиатуру и мышь.
3.Не трогать пальцами монитор
4.Не выдергивать из компьютера какие-либо шнуры во время его работы.
5.Не выключать компьютер с помощью кнопки, выдергивания шнура питания.
6.Выключать компьютер только через "пуск"-"завершение работы".
7.Находиться на расстоянии 20-30см от монитора.
8.Не делать резких движений при работе с компьютером.
9.Держать свое рабочее место в чистоте и порядке.
10.Переодически очищать компьютер от загрязнений специальными влажными салфетками.
12.Не изменять настройки, не зная результата
13.Не работать за компьютером одновременно более чем одному человеку.
14.При долгой работе с компьютером делать зарядку для глаз и тела
15.Не работать за компьютером более 3 часов в день за избежание вреда для здоровья.