Ответ:
1 четное число
Объяснение:
Условие a mod 2 = 0 означает, что остаток от деления числа a на 2 нулевой, т.е. число четное. Это число и выводится.
Var a:real;
begin
read(a);
if a mod 17 = 0 then begin
write(a*2*3);
end;
else begin
write(a-4);
end;
end.
Ответ:
файловый менеджер проводник не предназначен для редактирования файлов
3/256 Мбайта = 1024*3/256 Кбайт = 12 Кбайт = 12*1024 байт = 12*1024*8 бит
Память для одного символа = 12*1024*8 / 6144 = 16 бит
Мощность алфавита = 2^16 = 16384
Function f(x: real): real;
begin
f := x * sqr(x) - sin(x)
end;
var
a, b, h, x: real;
begin
Write('Введите через пробел a,b,h: ');
Readln(a, b, h);
x := a;
while x <= b do
begin
Writeln('x=', x:0:3, ', f(x)=', f(x):0:5);
x := x + h
end
end.