У вас отсутствует вторая закрывающая скобка в первой строке
Должно быть так: n = int(input('Введите число. Проверка на четность.'))
2³³ байт=2³³:2^10=2²³Кбайт=2²³:2^10=2¹³Мбайт=2¹³:2^10=2³Гбайт=8Гбайт
Ответ: 8 Гбайт
A:=3 - вместо переменной a будем ставить 3
b:=-1 - вместо b будем ставить -1
b:=9+a*b - ставим вместо a число 3, а вместо b число -1,
получим b=9+3*(-1)=9-3=6
- это НОВОЕ значение переменной b!
Теперь вместо a ставим 3, а вместо b ставим число 6!
a:=(b*b)/(b/a) - ставим справа вместо a число 3, а вместо b число 6,
получим a=(6*6)/(6/3)=36/2=18
Ответ: a=18
Var a,b,c,m,l,s1,s,k:real;
begin
write('Длина, ширина и высота комнаты: ');
readln(a,b,c);
write('Длина, ширина и цена одного рулона: ');
readln(l,m,s1);
k:=2*(a+b)*c/m/l;
if k-int(k)>0 then k:=k+1;
k:=int(k);
s:=s1*k;
writeln('Потребуется рулонов: ',k);
writeln('Стоимость покупки: ',s)
<span>end.</span>
Строчные и прописные латинские буквы:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z
пробел
подчеркивание: _
арабские цифры:
0 1 2 3 4 5 6 7 8 9
знаки операций:
+ - * / = <> < > <= >= := @
ограничители:
. , ' ( ) [ ] (. .) { } (* *) .. : ;
спецификаторы:
^ # $
служебные (зарезервированные) слова:
ABSOLUTE EXPORTS LIBRARY SET
ASSEMBLER EXTERNAL MOD SHL
AND FAR NAME SHR
ARRAY FILE NIL STRING
ASM FOR NEAR THEN
ASSEMBLER FORWARD NOT TO
BEGIN FUNCTION OBJECT TYPE
CASE GOTO OF UNIT
CONST IF OR UNTIL
CONSTRUCTOR IMPLEMENTATION PACKED USES
DESTRUCTOR IN PRIVATE VAR
DIV INDEX PROCEDURE VIRTUAL
DO INHERITED PROGRAM WHILE
DOWNTO INLINE PUBLIC WITH
ELSE INTERFACE RECORD XOR
END INTERRUPT REPEAT
EXPORT LABEL RESIDENT
Подробнее - на Znanija.com -
znanija.com/task/17610098#readmore