var c: char;
vowels: set of char:=['a', 'e', 'i', 'o', 'u', 'y'];
begin
write('Введите символ: ');
readln(c);
if c in vowels then
writeln(c, ' — гласная')
else
writeln(c, ' — согласная');
end.
Для начала надо найти Iк(обьем 1 книжки) для этого (кол.страниц×кол.строк×кол.символов×чем кодируется 1 символ(1байт=8 бит)
Iк=1000×100×80×8=64'000'000 бит=8'000'000 байт=7'812.5 килобайт= 7.62 мегабайт.После это Iд(Обьем жесткого диска)переводим в мегабайты
160гигабайт=163'840 мегабайт, чтобы найти сколько поместится книг нужно (Iд÷Iк)
163'840÷7.62=21'501.31 округляем получаем 21'501 поместится в жесткий диск.
Ответ:21'501 книг поместится в жесткий диск.
P.S: Знак (') я писал, чтобы легче было распознать число.
Можно так:
Program VremjaGoda;
Var i:integer;
Begin
Writeln ('введите номер месяца');
Begin
For i:=1 to 12 do
Begin
If i=1 or i=2 or i=12
Then writeln ('зима');
Else
If i=3 or i=4 or i=5
Then writeln ('Весна');
Else
If i=6 or i=7 or i=8
Then writeln ('Лето');
Else
If i=9 or i=10 or i=11
Then writeln ('Осень');
End;
End;
End.
Можно использовать Case.
Var a:integer;
begin
readln(a);
Write (a div 10);
end.
У кожному квадраті щось напиши.Але не пиши забагато.Орієнтована кількість речень на слайді-до пяти.Використовуй короткі речення.У кожному реченні-до восьми слів.Щоб створити презентацію треба запустити на виконання PowerPoint.Це робиться так:Вибери кнопку Пуск.Послідовно вибери <u>Усі програми,Microsoft Offise.Microsoft Office PowerPoint2007</u>