Program words;
var
t: array [0..35] of string;
t2: array [0..1190] of string;
iskomoe: array [0..142614] of string;
s: byte;
s1: longint;
s2: integer; //1190
q: byte;
f1: file of char ;
begin
writeln('сколько символов вы собираетесь использовать? (до 35) ');
read(q);
assign(f1,'russ.txt');
reset(f1);
for s: =0 to q do
begin
readln(t[s]);
end ;
//тут нужно будет сделать новый массив со всеми комбинациями;
//допустим этот массив(массив есть в условиях - t2[s2]) с комбинациями описан выше ;
begin
for s1: =1 to 142614 do readln( f1 ,iskomoe[s1]); тут пишет что нельзя считывать данные этого типа и параметр цикла for в pascalabc.net должен описываться в заголовке цикла
s2: =0;
repeat
s2: =s2+1;
until t2[s2]=iskomoe;
close(f1);
writeln(t2[s2]);
end;
end.
using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите координату x точки");
double x = int.Parse(Console.ReadLine());
Console.WriteLine("Введите координату y точки");
double y = int.Parse(Console.ReadLine());
Console.WriteLine("Введите радиус");
double r = int.Parse(Console.ReadLine());
double d = Math.Sqrt(Math.Pow(-x, 2) + Math.Pow(-y, 2));
Console.WriteLine(d);
if (d < r){
Console.WriteLine("Да");}
else if (d == r){
Console.WriteLine("На границе");}
else{
Console.WriteLine("Нет");}
Console.ReadKey();
}
}
using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите координату x точки");
double x = int.Parse(Console.ReadLine());
Console.WriteLine("Введите координату y точки");
double y = int.Parse(Console.ReadLine());
Console.WriteLine("Введите радиус");
double r = int.Parse(Console.ReadLine());
double d = Math.Sqrt(Math.Pow(-x, 2) + Math.Pow(-y, 2));
Console.WriteLine(d);
if (d < r){
Console.WriteLine("Да");}
else if (d == r){
Console.WriteLine("На границе");}
else{
Console.WriteLine("Нет");}
Console.ReadKey();
}
}