Чертёжнику был дан для исполнения следующий алгоритм: повтори 4 раз сместиться на (–3, –4) сместиться - id582912720200214 от stolbov2005 14.02.2020 08:27

Question

Информатика: Чертёжнику был дан для исполнения следующий алгоритм: повтори 4 раз сместиться на (–3, –4) сместиться на (1, 3) сместиться на (1, –2) конец какую единственную команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение? o 1)сместиться на (–4, –12) o 2)сместиться на (–12, –4) o 3)сместиться на (12, 4) o 4)сместиться на (4, 12)

stolbov2005 · Accepted Answer

Вариант первый:

Var
   A:longint;
   n,p:integer;
   B:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(A);
n:=0;
p:=0;
While A > 0 do
   Begin
   B:=A mod 10;
   if B = 0 then n:=n+1;
   if B = 5 then p:=p+1;
   A:=A div 10;
   End;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

Вариант второй:

Var
   A:string;
   n,p,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
n:=0;
p:=0;
For i:= 1 to Length(A) do
    if A[i] = '0' then n:=n+1
       else if A[i] = '5' then p:=p+1;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

MOGZ ответил