<span>Program enot;
Var a,b,c: integer;
begin
write('введите стороны треугольника: ');
read(a,b,c);
writeln(a,' ',b,' ',c,' ');
end.
._.</span>
На паскале должно выглядеть так:
Начало программы, ввод данных.
<...>
if (y>=x*x) and (y<=5) and ((y>=x+5) or (x>=0)) then write('принадлежит') else write('не принадлежит');
end.
Можно воспользоваться функцией <span>UpCase</span> или сделать 33 if'а.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
<u>Результат</u>
16
30
#include <iostream>
using namespace std;
int main()
{
int n, ans = 1;
cin >> n;
int i;
for(i = 0; i <= n; i += 5)
ans *= 4;
cout << ans / 4;
}