Var a,b,c:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
if a>b then
if b>c then writeln('naimenshee=', c) else writeln('naimenshee=', b)
else if a>c then writeln('naimenshee=', c) else writeln('naimenshee=', a);
end.
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
Объяснение:
^ не ставится у меня, но выполняет свои действия, у себя его ставьте!
Электронная почта на компьютере