Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0 thenwriteln('четно')else writeln('нечетно')end.
Ответ: 5
Внешний цикл выполнится ровно 5 раз
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 28 c
v = 256000 бит/с
I - ?
Решение:
бит
7168000.0 бит = 896000.0 байт = 875.0 Кбайт
Ошибочно описан тип в строке <span>SW=array(1..8, #65..#72) of Figura;
Должны быть квадратные скобки. После исправления программа с таким описанием нормально компилируется.
</span>
Program kvadrat;
var
a: integer;
begin
write('a=');
readln(a);
writeln('S=',a*a);
writeln('P=',4*a);
end.
