Var
m,n,d:integer;
begin
Read(m,n);
d:=m mod 10 - n mod 10;
if d<0 then Writeln('У 1-го числа разряд единиц меньше')
else
if d>0 then Writeln('У 2-го числа разряд единиц меньше')
else Writeln('У обоих чисел разряды единиуц равны')
end.
А)передача по usb, интернет(соц сети,электронные почты)
б)жесткий диск,флеш накопители, сервер .
в)поиск контента может производится в интернете на различных сайтах,или в книгах.
г)обрабатывать информацию может человек с помощью компьютера
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x := ReadReal('x =');
Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.
2)
begin
var x := ReadReal('x =');
if (x <= 0) then
Writeln(0)
else
if (x <= 1) then
Writeln(x)
else
Writeln(x**4);
end.