2 раза налить 8 литровым потом 3 раза вычерпать всё это 5 литровым
Аудио
wav, ogg, mp1, mp2, mp3
Видео
avi, mov, 3gp, mpeg, mkv
Program Program1;
Var
a:array [1..10] of integer;
i,temp:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln;
writeln('Полученный массив:');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.
Uses crt;var s,i,n:integer; a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0; for i :=1 to n do begin a[i]:=(random(2000)-1000)/10; write('a[',i,']=',a[i],'; '); end; for i :=1 to n-1 do begin if a[i]>a[i+1] then s:=s+1; end; if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.
Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>