Var A : Integer;
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.
В зоопарке есть очень много животных, как хищные, млекопитающие и др. экипаж первый второй. больше незнаю
Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
1)обозначается латинскими буквами(A,B,S...256)
2)ячейка-это пересечение строк и столбцов.
Диапазоны в Excel раньше назывался блоками. Диапазон – это выделенная прямоугольная область прилегающих ячеек. Данное определение понятия легче воспринять на практических примерах.
В формулах диапазон записывается адресами двух ячеек, которые разделенные двоеточием. Верхняя левая и правая нижняя ячейка, которая входит в состав диапазона, например A1:B3.
INPUT "n="; n
DIM a(n) AS INTEGER
RESTORE
FOR i = 1 TO n
READ a(i)
NEXT i
FOR i = 1 TO n - 1
mi = a(i): u = i
FOR j = i TO n
IF a(j) < mi THEN
mi = a(j): u = j
END IF
NEXT j
r = a(i): a(i) = mi: a(u) = r
<span>NEXT i
</span>FOR i = 1 TO n
PRINT a(i);
NEXT i
END
DATA 12,-3,34,2,76,0,-45,23,12,0,23,6