Var
x, y : real;
begin
read (x, y);
if sqr (x) + sqr (y) <= 4 then write ('YES') else write ('NO');
end.
type
Data = record
Year: 1..2100;
Month: 1..12;
Day: 1..31;
end;
begin
writeln(sizeof(Data) * 8, ' бит'); {sizeof(Data) показывает размер типа Data в байтах
begin
var a := ArrRandomReal(10,-99,99);
a.Println;
a[a.IndexMax] := a.Average;
a.Println;
end.
На PascalABC.NET
Мы ходили в кино, было очень весело! В этом фильме было множество различных актеров ,злодеи и герои участвовали! Мне понравились все актеры но самым любимым актером стал (например Космонавт) он спас мир!
Надо смотреть монетор подальше от телевизора. Если смотреть близко можно испортить зрение.