1. Найдите значения х, при которых логические выражения будут истинны или ложны (фото) 2. Написать код - id1270822820200306 от 2a0n0u5g 06.03.2020 08:51

Question

Информатика: 1. Найдите значения х, при которых логические выражения будут истинны или ложны (фото) 2. Написать код программы на алгоритмическом языке Вводится с клавиатуры некое целое число Х. Надо определить, находится ли это значение Х в диапазоне от 10 до 20 (включая границы 10 и 20). В ответе надо вывести сообщение «Значение подходит» или «Значение не подходит»

2a0n0u5g · Accepted Answer

{1}

var
a,k,s: integer;
begin
read(a);
k := 0; s := 0;
while a mod 2 <> 0 do
    begin
    if abs(a) mod 10 > 5 then
      s := s + a;
    a := abs(a);
    if (a > 9) and (a < 100) then
      k := k + 1;
    read(a);
    end;
writeln('k=',k,', s=',s)
end.

{2}

var
n,i,p,a: integer;
begin
read(n);
p := 1;
for i := 1 to n do
    begin
    read(a);
    if (a > 0) and (a mod 3 = 0) then
      p := p * a;
    end;
writeln('p=',p)
end.

{3}

var
n,a,i,k,s: integer;
begin
read(n);
k := 0; s := 0;
for i := 1 to n do
    begin
    read(a);
    if a > 0 then
      begin
      s := s + a;
      k := k + 1;
      end;
    end;
if k = 0 then k := 1;
writeln('s=',s/k)
end.

MOGZ ответил