Var a,b,c: integer;
Begin
write('Ведите двузначное число: ');
readln (a);
b:=a div 10;
c:=a mod 10;
writeln('Сумма цифр равна: ',c+b);
writeln('Перевернутое число: ',c,b)
End.
Доброго времени суток :D
Считайте вам повезло и я как раз знаю ответ на этот вопрос.
Кто такие разработчики компьютерных вирусов?
Это группа людей, по большей части аналитиков с навыками реверс-инжиниринга.
Занимаются исключительно воровством и (или) незаконным проникновением с последующей порчей или опять же кражей конфиденциальных данных. Редко для эксплуатации вычислительного потенциала :D
Кто такие компьютерные пираты?
Это группа людей распространяющие программные продукты (софт, игры и тд) не имея на то права!
Вывод: фактически они представляют собой две разные организации, но не редко когда одной организации помогает другая ;)
Всего доброго.
X := b / a;
If x < 0 Then
WriteLn('x не существует')
Else
WriteLn('x = ', x);
Ответ:
Изображение представлено дискретно.
Объяснение:
Изображение представляется в виде пикселей (этаких точек). Каждой точке присваивается ряд различных количественных значений: номер цвета, контрастность и яркость. Их градации не плавные, а с разрывами.
Var x, y: real;
begin
writeln (' Ââåäèòå ÷èñëà x, y');
readln (x,y);
if x>y then x:=x-y
else x:=x-y;
if x>y then y:=x+y
else y:=y-x;
writeln ('÷èñëî x',x);
writeln ('÷èñëî y',y);
end.