Три свидетеля дорожного происшествия сообщили сведения о скрывшемся нарушителе. эдгар утверждает, что - id704581820200115 от vikacatcatcat 15.01.2020 23:07

Question

Информатика: Три свидетеля дорожного происшествия сообщили сведения о скрывшемся нарушителе. эдгар утверждает, что тот был на красном«peugeot», вадим сказал, что нарушитель уехал на серой «audi», а фёдорпоказал, что машина была точно некрасная, и по всей видимости, это был «ford». когда удалось отыскать машину, выяснилось, что каждый из свидетелей точно определил только один из параметров автомобиля. а в другом ошибся, какая и какого цвета была машина у нарушителя?

vikacatcatcat · Accepted Answer

Вот вариант программы с трассировкой

program test;

var
n,k,m:integer;

begin
repeat
    Writeln('*** очередной проход по циклу REPEAT');
    Write('Введите натуральное число n: ');
    Readln(n);
    Writeln('*** введено ',n)
until n>0;
Writeln('*** вышли из REPEAT по условию ',n,' > 0 = ',n>0);
m:=n;
k:=10;
Writeln('*** m=',m,', k=',k);
Writeln ('*** проверка входа в цикл WHILE с условием ',m,' div 10<>0 = ',
      m div 10<>0);
while m div 10<>0 do begin
    Writeln ('*** проход по циклу WHILE с условием ',m,' div 10<>0 = ',
        m div 10<>0);
    k:=k*10;
    m:=m div 10;
    Writeln('*** m=',m,', k=',k);
    end;
Writeln('*** Цикл WHILE завершен');
m:=(2*k+n)*10+2;
Writeln('Число с двойками = ',m);
end.

Нужно составить трасеровочную таблицу , отладить эту программу . программа работает. выдаёт правильн

Нужно составить трасеровочную таблицу , отладить эту программу . программа работает. выдаёт правильн

MOGZ ответил