Var x:real;
begin
readln(x);
if (x >= 0 and x <= 1)
then write(x * (x - 1))
else write(x * x - Sin(Pi * x * x));
end.
Откуда знак @ произошёл никто не знает. Есть гипотеза, что это сокращение латинского предлога ad.
В испанском, португальском и французском @ - старинная испанская мера веса. Арроба.
Одна из версий происхождения названия "собака" - на цифровых мониторах компьютеров серии ДВК хвостик этого символа был очень короткий. Поэтому и был похож на собачку.
Другая говорит, что происхождение этого названия связано с игрой Adventure, в которой игрока сопровождал пёс, который обозначался символом @.
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8