4. var a:real; begin write('Введите количество мегабайт=');read(a); writeln('Количество килобайт=',a*1024); writeln('Количество байт=',a*1024*1024); writeln('Количество бит=',a*1024*1024*8); end.
5. var a,b,c,p,S:real; begin write('Введите сторону a=');read(a); write('Введите сторону b=');read(b); write('Введите сторону c=');read(c); P:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); write('S=',s:5:2); end.
6. var a:integer; begin write('Введите количество суток=');read(a); writeln(24*a,' ','часов'); writeln(60*24*a,' ','минут'); writeln(60*60*24*a,' ','секунд'); end.
4. var a:real; begin write('Введите количество мегабайт=');read(a); writeln('Количество килобайт=',a*1024); writeln('Количество байт=',a*1024*1024); writeln('Количество бит=',a*1024*1024*8); end.
5. var a,b,c,p,S:real; begin write('Введите сторону a=');read(a); write('Введите сторону b=');read(b); write('Введите сторону c=');read(c); P:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); write('S=',s:5:2); end.
6. var a:integer; begin write('Введите количество суток=');read(a); writeln(24*a,' ','часов'); writeln(60*24*a,' ','минут'); writeln(60*60*24*a,' ','секунд'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
