z10)
var A, B, C: integer;
begin
write('Введите A, B, C: '); readln(A, B, C);
writeln('Сумма = ', A + B + C);
writeln('Произведение = ', A * B * C);
end.
z11)
var a,s,v:integer;
begin
writeln('Введите длинну куба: ');
readln(a);
s:=6*a*a;
v:=a*a*a;
writeln('Объем = ', v);
writeln('Площадь боковой поверхности = ', s);
end.
z13)
var A, B, C: integer;
begin
A := 20; B := 13;
C := A;
A := B;
B := C;
writeln('A = ', A);
writeln('B = ', B);
end.
z14)
var A, B: integer;
begin
A := 20; B := 13;
A:=A+B;
B:=A-B;
A:=A-B;
writeln('A = ', A);
writeln('B = ', B);
end.
73 символа * 1 байт (вес одного) = 73 байта.
Либо 146, так как неизвестно в какой кодировке было записано высказывание.
Ответ:
Вариант Б быстрее на 2 с.
Объяснение:
5 Мбайт = 5×2²⁰ байт = 5×2²³ бит.
1) по варианту А.
Сжали вдвое, получили объем 5×2²² бит. Время передачи составит
(5×2²²) / 2²⁰ = 5×2² = 20 с.
Общее время 20 + 20 +2 = 42 с.
2) по варианту Б.
Время передачи (5×2²³) / 2²⁰ = 5×2³= 40 с.
Вариант Б быстрее на 2 с.
var n,i,a,s:integer;
begin
write('n = ');
readln(n);
s:=0;
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
begin
read(a);
if a div 100=4 then s:=s+a;
end;
writeln('s = ',s);
end.
Пример
n = 5
Введите 5 натуральных чисел
123 456 4321 45 401
s = 857