Информатика! ! 1. сколько страниц текста может быть записано: a) на гибком диске обьемом 1, 44 мбайт б)на жестком диске обьемом памяти 40 мбайт в)на электронном диске обьема 1 гбайт если на каждой странице по 60 строк из 80 знаков 2. сколько дискет обьемом 360 кбайт необходимо для хранения: а) учебника обьемом 120 страниц , в каждой из которых 60 строк по 65 знаков б)для сборника стихов из 5 выпусков по 60 страниц тех же размеров в)для полной энциклопедии из 60 томов по 250 страниц , на каждой из которых по две полосы если на каждой странице по 80 строк из 45 знаков нужно(
Ответы
1. a) 314 страниц б) 8737 страниц в) 27777 страниц 2. а) 1300 дискет б) 3250 дискет в)150000 дискет
Program u; var i,j,k: integer; b: array[1..7] of string; a: array[1..7,1..3] of real; begin k: =0; writeln('запишите фамилии учеников в столбик'); for i: =1 to 7 do readln(b[i]); for i: =1 to 7 do writeln(b[i]); for i: =1 to 7 do begin writeln('запишите оценки' , b[i]); for j: =1 to 2 do read (a[i,j]); end; for i: =1 to 7 do a[i,3]: =(a[i,1]+a[i,2])/2 ; for i: =1 to 7 do begin writeln; write(b[i],' ',45a[i,1],' ',a[i,2],' средняя оценка ',a[i,3]); end; writeln; for i: =1 to 7 do if (a[i,1]=5) and (a[i,2]=5)then k: =k+1; writeln('количество отличников ',k); end.
Var s: string; i, a, b, c, f: integer; begin writeln('номер билета? '); readln(s); for i : = 1 to 3 do begin val(s[i], a, f); b : = b + a; end; for i : = 4 to 6 do begin val(s[i], a, f); c : = c + a; end; if c = b then writeln('билет счастливый! ') ; else writeln('билет не счастливый! '); readln ; end. вроде так
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Не себепті HTML тілінде тегтер жұпты және жұпсыз тегтер деп бөлінеді?
Автор: badalovao256
Последнее ) все вычисления должны быть в условиях расширенного фильтра
Автор: tanyatanyat
Написать надо в C# Windows Forms
Автор: igor51766771
11. Переведите в десятичную систему счисления: а) 251 8; б) C916,
Автор: eleniloy26
Установите порядок выполнения логических операций для формул:
Автор: Anastasiya
