Гипертекст - это информация в виде документов, имеющих ссылки на другие документы.
Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3>
begin
var s := ReadString;
((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +
(s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;
end.
1 символ = 1 бит ,1 байт =8 битам, 1 килобайт =1024 байтам
2048=16777216
Program pr;
uses crt;
Var a,b,c:integer;
H,F,x,x1,x2:real;
Begin
Writeln('Шаг');
readln(H);
Writeln(' a,b,c');
readln(a,b,c);
Writeln('промежуток X нач ,X кон ');
readln(x1,x2);
x:=x1;
While x<=x2 do
Begin
if (c<0) and (b<>0) then
Begin
F:=(a*x*x)+(b*b*x);
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end
else
if (c>0) and (b=0) then
Begin
F:=(x+a)/(x+c);
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end
else
Begin
F:=x/c;
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end;
end;
readln;
end.