//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
Да,нужно .Чертишь,считаешь,и записываешь
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
#include <iostream>
using namespace std;
int main()
{
unsigned long long n=0;
for(int i=1;i<=500;i++)n+=i*i;
cout<<n;
return 0;
}
Обясните, зачем нужен символ "$"? Ну и проверку на длину строки в 50 символов, я думаю уже сами разберетесь. Просто подсчитайте количество символов у строке и if-фом задайте условие...