М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Jdhcb
Jdhcb
02.11.2022 07:32 •  Информатика

Нужно написать программу в паскале.

👇
Ответ:
kotovaann2016
kotovaann2016
02.11.2022

program fantscrin;

 var x, f:real;

begin

 write('Введите x = '); readln(x);

 if x = 2 then f:=3*x*x - 1/2

          else if x = 3 then f:=x*x*x-3*x/2

                        else f:=2*x*x*x*x-3*x/2;

 writeln('f = ',f);

end.

4,4(48 оценок)
Открыть все ответы
Ответ:
Zhamik11
Zhamik11
02.11.2022
Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte); 
var i:byte; 
begin 
for i:=k to n-1 do z[i]:=z[i+1]; 
z[n]:=0; 
end; 
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i]:4);
 end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
  begin
  Del(a,i);
 writeln('Размерность массива = ',n-1);
 for i:=1 to n-1 do write(a[i]:4);
 writeln;
 end  else writeln('Массив не изменился');
end.
Пример:
  12  13   6   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
Размерность массива = 19
  12  13   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
4,6(96 оценок)
Ответ:
t4rka
t4rka
02.11.2022

Пользуйся

Объяснение:

//fpc 3.0.0

program CheckColour;

var

k,l,m,n,kmod,lmod,mmod,nmod,klflag,nmflag: integer;

begin

kmod:=0;

lmod:=0;

mmod:=0;

nmod:=0;

klflag:=0;

nmflag:=0;

read(k, l, m, n);

kmod := (k mod 2);

lmod := (l mod 2);

mmod := (m mod 2);

nmod := (n mod 2);

//writeln(k, l, m, n);

//writeln(kmod, lmod, mmod, nmod);

klflag:=(kmod xor lmod);

nmflag:=(nmod xor mmod);

//writeln(klflag, nmflag);

if klflag = nmflag then writeln(true)

else writeln(false);

end.

Input 2 3 5 7

output FALSE

Клетка 1, 1 - черная

4,6(12 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ