Даны x,y,z.
[email protected] в категроии Информатика, вопрос открыт 15.03.2018 в 09:35
Определить переменные кратные 3 (делиться на три без остатка), в случае отсутствия таких переменных напечатать соответствующие сообщения Помогите, пожалуйста
1 ответ
[email protected] , ответ добавлен 15.03.2018 в 09:52
Var x, y, z, k: integer;
begin
readln(x, y, z);
k:=0;
if (x mod 3 = 0) then begin inc(k); writeln(x, ' кратно трем');end;
if(y mod 3 = 0) then begin inc(k); writeln(y, ' кратно трем');end;
if (z mod 3 = 0) then begin inc(k); writeln(z, ' кратно трем'); end;
if (k =0) then writeln('Переменных, кратных трем, не обнаружено!');
end.
0
Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.