Program one;
Var a:array[1..9999] of rial; i,m,n,k:integer;
Begin
K:=1;
Readln (n);
For i:=1 to n do begin
Readln(a[i]) ;end;
For i:=1 to n do begin
If (a[i]>0) then a[i]:=a[i]*0,4;
If (a[i]=0) then a[i]:=0,5; If (a[i]>0) then k:=k*a[i];
If (a[i])<0) then m:=m+a[i];
End;
Writeln (k,m);
End .
Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dn<=m do
begin
dn:=d1+d2;
d1:=d2;
d2:=dn;
k:=k+1;
end;
writeln('k = ',k,' dn = ',dn);
end.
Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300
Var
mas : array [1..5] of longint;
sum : longint;
i: byte;
begin
for i:=1 to 5 do
begin
read (mas[i]);
if (mas[i] mod 4 = 0) and (mas[i] mod 10 = 6) then sum:=sum+mas[i];
end;
writeln (sum);
end.
Паскаль:
var a,b,c, sum,d,k: integer;
begin
Writeln('Введите А');
readln(a);
Writeln('введите б');
readln(b);
Writeln('Введите С');
readln(c);
d:= b-a;
sum:=d;
k:=c-a;
sum:=sum+k;
Writeln('Сумма=',sum,'Длина AB=',d,'AC=',k);
end
2
string xc = "asdfghjk";
int l = xc.Length;