Вообще подобные задания обычно делаются в excel.
И делать с массивом или без?.
program abc;
var A : array [1..7] of integer;
s, k: integer;
BEGIN
s:=0
for k:= 1 to 7 do
begin
readln (A[k]);
s:=s+A[k];
end;
writeln ('Среднее атмосферное давление ', (s/7));
END.
Если быть совершенно точным, то условные операторы switch-case.
Отличаются от if тем, что if проверяет некое условие (ЛЮБОЕ условие), а блок switch-case сначала задает значение - switch (значение), а потом сравнивает его с условиями в case.
Следовательно, к примеру:
if (n == 5) ...
if (n == 2) ...
if (n == -3) ...
будет эквивалентно
switch (n) {
case 5:
...
break;
case 2:
...
break;
case -3:
...
break;
}
Учтите, что в switch-case ожидается использование break. Если не поставить break, case, который ниже текущего, тоже будет выполнен.
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
1) 1.25Мбит/с равен 8*10⁶ (8000000) Бит/с
2) Символов в кавычках 22, значит 22*16=352