Var r,t,k,rc,tc,kc:integer; begin writeln('Введите кол-во ручек, тетрадок и карандашей соответственно'); read(r,t,k); writeln('Введите стоимость ручек, тетрадок и карандашей соответственно'); read(rc,tc,kc); writeln('Цена всех ручек=',rc*r); writeln('Цена всех тетрадок=',tc*t); writeln('Цена всех карандашей=',kc*k); writeln('Сумма покупок=',rc*r+tc*t+kc*k); end.
Var a1,a2,a3,a4,a5,max: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1>a2) then max:= a1else max:=a2; if (a2>a3) then max:=a2else max:=a3; if (a3>a4) then max:=a3else max:=a4; if (a4>a5) then max:=a4else max:=a5; end; writeln (max); end. Аналогично с минимальным числом. var a1,a2,a3,a4,a5,min: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1<a2) then min:= a1else min:=a2; if (a2<a3) then min:=a2else min:=a3; if (a3<a4) then min:=a3else min:=a4; if (a4<a5) then min:=a4else min:=a5; end; writeln (min); end. Можно так же решить с массива, если нужно пишите.
Много лишнего(наверно), только с олимпиады!Как есть. uses crt; var b,n,i,k,c,o,x1:integer; f,s,ch:string; r,g: text; A:array [0..9] of integer; begin assign (r,'C:\Bin.txt'); reset (r); readln (r,f); close (r); for i:=1 to length(f) do begin s:=copy(f,1,1); if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then delete(f,1,1); if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then begin x1:=pos(s,ch); if x1<>0 then begin delete(ch,x1,1); ch:=ch+s; end else ch:=ch+s; end; end; val(ch,n,o); N := Abs(N); for i := 0 to 9 do A[ i ] := 0; while N > 0 do begin Inc(A[ N mod 10]); N := N div 10; end; assign (g,'C:\Bout.txt'); rewrite (g); for i := 0 to 9 do while A[ i ] > 0 do begin Write(g,i); Dec(A[ i ]); end; close(g); end.
Var
r,t,k,rc,tc,kc:integer;
begin
writeln('Введите кол-во ручек, тетрадок и карандашей соответственно');
read(r,t,k);
writeln('Введите стоимость ручек, тетрадок и карандашей соответственно');
read(rc,tc,kc);
writeln('Цена всех ручек=',rc*r);
writeln('Цена всех тетрадок=',tc*t);
writeln('Цена всех карандашей=',kc*k);
writeln('Сумма покупок=',rc*r+tc*t+kc*k);
end.