Program zeromas;
var
c: array[1..12] of integer;
i, z: integer;
begin
z := 0;
for i := 1 to 12 do
begin
readln(c[i]);
if c[i] = 0 then
z := z + 1;
end;
writeln('Нулевых элементов: ', z);
end.
Var x,y: real;
begin
write('x = ');
readln(x);
if (x>=0)and(x<=1) then y:=x*x-x
else y:=x*x-sin(pi*x*x);
writeln('y = ',y:6:4);
end.
Пример:
<span>x = 1.5
y = 1.5429</span>
<span><span>Насколько я понял это "кодированное" задание, требуется построить таблицы истинности для двух следующих логических выражений:
Таблицы даны во вложении.</span> </span>
Текстовую, звуковую, <span>видеоинформацию </span>, графическую.
Я надеюсь ты знаешь как открыть этот файл, в отличии как пишется TurboPascal.