Program prog;
uses crt;
var a,b,c,x,y:real;
begin
clrscr;
write('Ребро параллелепипеда а = ');
readln(a);
write('Ребро параллелепипеда b = ');
readln(b);
write('Ребро параллелепипеда c = ');
readln(c);
writeln;
write('Сторона отверстия х = ');
readln(x);
write('Сторона отверстия y = ');
readln(y);
writeln;
if ((a<x) and (b<y)) or
((a<x) and (c<y)) or
((c<x) and (b<y)) or
((b<x) and (a<y)) or
((c<x) and (a<y)) or
((b<x) and (c<y)) then
writeln('Может пройти') else writeln('Не может пройти');
end.
Карпец Д. К.
1
А с муз. файлом не знаю))
Uses CRT;Var a:set of char; s:string; j:char; i,k:integer;begin writeln('Введите строку: ');readln(s);a:=[];k:=0;for i:=1 to length(s) do if s[i] in ['А','а','Е','е','Ё','ё','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'] then begin a:=a+[s[i]]; k:=k+1; end;write('Гласные буквы, присутствующие в строке: ');for j:='А' to 'я' do if j in a then write(j:2); writeln; write ('Количество гласных букв: ',k);<span>end.</span>
Файл во вложении. Если я правильно поняла, то каждый день просрочки начисляется пени. Если книга была больше 30 дней