Все категории

4 года назад

Пойстроете таблицу истинности

Знания

Информатика

1 ответ:

shtets95 [47]4 года назад

0 0

--------------------

Читайте также

Запишите алгоритм определения принадлежности. точки Х отрезку [А; В] с использованием комбинациииз двух ветвлений.

Lidya [3.8K]

program AAA;

var A, B ,X :real;

begin

readln(A,B,X);

if X > A then

if X< B then

writeln('Прин')

else

writeln('Не прин')

else

writeln('Не прин')

end.

0 0

4 года назад

Помогите плиз! (Анаграммы) Весна - навес масло - кот - тик - нос - кара - лето - атлас- кукла - марка - каприз - соринка -

Kira82

Масло не знаю.Кот- кто,тик-кит,нос- сон,кара-?. Лето - тело,атлас-салат,кукла- кулак,марка -рамка,соринка-?

0 0

4 года назад

Прочитать ещё 2 ответа

Дана последовательность чисел:12323. К ней применён следующий цикл обработки:1. Все цифры "1" заменить на "33"2. Все цифры "2" з

19920905

Var i,j: integer;
chislo: string;
begin
chislo:='12323';
for j:=1 to 14 do
begin
i:=1;
while i<=length(chislo) do
   begin
   if copy(chislo,i,1)='1' then begin delete(chislo,i,1);insert('33',chislo,i); inc(i); end;
   inc(i);
   end;
i:=1;
while i<=length(chislo) do
   begin
   if copy(chislo,i,1)='2' then begin delete(chislo,i,1);insert('1',chislo,i); end;
   inc(i);
   end;
i:=1;
while i<=length(chislo) do
   begin
   if copy(chislo,i,1)='3' then begin delete(chislo,i,1);insert('2',chislo,i); end;
   inc(i);
   end;
end;
Writeln(chislo);
readln;
end.

0 0

3 года назад

Написать программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 2 и оканчивающихся на 4. Прог

tsvetoknk [7]

Var
i, n, num, sum: integer;
begin
num:=0;
read(n);
for i:=1 to n do
begin
read(num);
if (num mod 2 = 0) and (num mod 10 = 4) then
sum:=sum+num;
end;
writeln(sum);
end.

0 0

4 года назад

Котик загадывает случайное число от 1 до 10. Это число записано в переменной. Котик тебя спрашивает: Какое число я загадал? А за

ezefaasbqfty

var a,b,k:integer;

begin

b:=random(10)+1;

WriteLn('Какое число я загадал?');

k:=3;

repeat

Write('У тебя ',k,' попытки(-а). Введи число: ');

ReadLn(a);

if a>b then WriteLn('Мое число меньше!')else

if a<b then WriteLn('Мое число больше!')else

if a=b then

begin

WriteLn('Молодец! Угадал!');

k:=0;

end;

k:=k-1

until k<=0;

if k=0 then WriteLn('Проиграл!');

end.

0 0

4 года назад