Регистрация
lolol6y
14.04.2021 00:25
Информатика
Есть ответ 👍

Прошу. самостоятельная: ( 1.даны два числа m n. большее из этих чисел уменьшить на 3, а меньшее удвоить. составьте алгоритм. 2. составьте алгоритм попадания точки в третью четверть окружности.

216
242
Посмотреть ответы 2

Ответы на вопрос:

Vyacheslav1111
Vyacheslav1111
4,8(25 оценок)
1. var m,n: real; begin writeln ('введите 2 числа: '); readln (m,n); if m> n then begin m: =m-3; n: =n*2; writeln ('m = ',m,' n = ',n) end else begin n: =n-3; m: =m*2; writeln ('m = ',m,' n = ',n); end; end.а второе  я не знаю как решить(
fish1704
fish1704
4,6(67 оценок)

первая

var n,x: integer;

begin

  readln(n);

  while n < > 0 do begin

  x: =x + n mod 10;

  n: =n div 10;

  end;

  if(x mod 2 = 0) then

    writeln('true')

  else

    writeln('false');

end.

вторая

var x,z,s: integer;

begin

  readln(x);

  if (x > 99) and (x < 1000) then begin

    s: =x;

    while s< > 0 do begin

      z: =z+s mod 10;

      s: =s div 10;

    end;

    if(x*x) = (z*z*z) then

      writeln('true')

    else

      writeln('false');

  end

  else

    writeln('число должно быть 3-ех значным! ');

end.

третья

var a,b,c: real;  

begin  

  writeln('введите a');

  readln(a);

  writeln('введите b');

  readln(b);

  writeln('введите c');

  readln(c);

  if (a=b) or (a=c) or (b=c) then

    writeln ('true')

  else

    writeln ('false);

end.

Популярно: Информатика