Паскаль
Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.
Лайк кста
//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.
Оператор присваивания
Составной оператор
Оператор безусловного перехода
Условные операторы
Оператор выбора Case
Операторы цикла
Начало
1. 11 - 0
2. 7 - 4
3. 7 - 0
4. 3 - 4
5. 3 - 0
6. 0 - 3
7. 11 - 0
8. 7 - 4
Конец
Стрелочки означают, что либо наливают (стрелка вниз), либо переливают (стрелка в бок). А перечёркнуто, значит вылили.
Приставка кило - в информатике значит 1024
переводим 192Кбит/с в биты, получаем 196608бит/с
196608бит/с в байты (делим на 8) поучаем 24576байт/с
переводим 3600 Кбайт в байты, получаем 3686400байт
3686400байт делим на 24576байт/с получаем 150секунд. Всё понятно?