его тип, и компьютер по нему распознает какой программой открыть файл.
7%7% и все а мама9$9$ это чертеж
var x:integer;
begin
writeln('Введите значение x: ');
readln(x);
if x<3 then
writeln('y = ',sqr(x))
else
if x>3 then
writeln('y = ',sqrt(x))
else
if x=3 then
writeln('y = ',2*x);
end.
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
var t:array[0..19] of byte;
i,k,l,s:integer;
begin
k:=0;
l:=0;
s:=0;
for i:=0 to 19 do begin
t[i]:=random(21)-10;
write(t[i],' ');
if t[i]=0 then k:=k+1;
if t[i] mod 3=0 then s:=s+t[i];
l:=l+t[i];
end;
write('колво 0 ',k);
write('сумма кратных 3 ',s);
write('средне арефм ',l/20);
end.