<em>Это из алгебры логики, логическая операция, дизъюнкция, логическое сложение. аналог или, or;∨</em>
<em>C∨0 = С</em>
Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
1) зайти в пункт меню файл
2) выбрать пункт "Сохранить"
3) выбрать по навигации папку, в которую нужно сохранить
4) дать имя файлу
5) нажать кнопку "Сохранить"
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
a.Println; sum.Println;
end.
Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)