Вот программный код на паскале:
<span>var
m,n: integer;
begin
read(m,n);
if m > n then
begin
writeln('1 paket tyajelee');
writeln('Ves tyajologo bolee paketa = ',m);
end ;</span>
<span>if m < n
then
begin
writeln('2 paket tyajelee');
writeln('Ves tyajologo bolee paketa = ',n);
end;
readln;
end.</span>
512=2^9 1000=2^3 *125 512000=2^12 *125 6=2*3
Размер файла = (2^12 * 125 * 2 * 3 ) бит =(2^10 * 375) байт =375 Кбайт
Ответ 375 Кбайт
Ответ:
Program Scheme;
Var xn,xk,dx,x,s,p,k,y: Extended;
Label rep;
Begin
write('Enter xn: ');
readln(xn);
write('Enter xk: ');
readln(xk);
write('Enter dx: ');
readln(dx);
s:=0; p:=1; x:=xn; k:=0;
rep:
If x <= xk then
Begin
y:=exp(sin(x))*cos(x);
writeln('x = ',x:0:3, ' y = ', y:0:3);
if y >= 0 then
s:=s+y;
if y <> 0 then
p:=p*y;
x:=x+dx;
goto rep;
End
else
Begin
writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);
exit;
End;
End.
Объяснение: Если есть вопросы, пишите в лс.
1. Чертишь 5 точек: A, B, C, D, E.
2. Смотришь только на одну половину схемы (верхнюю или нижнюю) и соединяешь точки с подписью длин.
3. Сейчас прикреплю фотографию с ответом.
var a:integer;
begin
readln (a);
if (a div 10 + a mod 10) mod 6 = 0 then writeln('Сумма цифр числа кратна 6')
else writeln ('Сумма цифр числа не кратна 6');
if a div 10 > a mod 10 then writeln('Цифра десятков числа больше цифры единиц числа')
else writeln ('Цифра десятков числа меньше цифры единиц числа');
if a mod 10 = 6 then writeln('Число оканчивается цифрой 6')
else writeln ('Число не оканчивается цифрой 6')
end.