#include <cstdio>
<span>long long ans, a;
</span><span>int main()
</span><span>{
</span><span> scanf("%lld", &a); //считываем исходное число
</span><span> a *= a; //возводим исходное число в квадрат
</span><span> ans = a; //в ответе хранится квадрат исходного числа
</span><span> a *= a; //в a хранится 4 степень исходного числа
</span><span> a *= a; //в a хранится 8 степень исходного числа
</span><span> ans *= a; //2 степень исходного числа умножаем на 8 степень
</span><span> printf("%lld", ans); //выводим ответ
</span><span> return 0;
</span><span>}</span>
Мне известны три группы программного обеспечения:
1. Системное ПО - это программы, управляющие работой аппаратных средств (сюда входят операционная система, драйверы).
2. Прикладное ПО - создание программ для решения конкретных задач (антивирусы, табличные редакторы, учебные программы).
3. Инструментальное ПО - позволяет создавать новые программы.
{т.е. квадрат лежит на оси x начиная от 0 до 5, т.к. сторона квадрата =5, аналогично и с осью y, отсюда условия x>=0 x<=5 y>=0 y<=5}
var
x,y:real;
begin
readln(x,y);
if (x>0)and(x<5)and(y>0)and(y<5)then
writeln('попадает')
else
writeln('не попадает');
end.
Program qwerty;
var a, b, P, S: real;
begin
writeln ('Нахождение периметра и площади прямоугольника');
write ('Введите значение первой стороны прямоугольника: ');
read (a);
write ('Введите значение второй стороны прямоугольника: ');
read (b);
P:=2*(a+b);
S:=a*b;
writeln ('Ответ: периметр = ', P:7:2, ', площадь = ', S:7:2,'.');
<span>end.</span>
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Trunc(Frac(Abs(ReadReal('x=')))*1000).ToString.Contains('5').Println
end.
И это - всё! )))