составить программу есть ли среди чисел x y z числа кратные 5. если такие числа имеются то увеличить их на 1

Помогите еще с одной задачей пожалуйста

там с системой

Создайте новый вопрос и укажите там условие. Посмотрю, может смогу вспомнить Паскаль.

создала уже

заранее огромное спасибо

Не указано на каком языке программирования нужно, поэтому напишу уж на Паскале. Всё сделал так, чтобы было понятно, хоть и не так компактно.Var    x, y, z:integer;Begin    Write('Введите числа X, Y и Z^: '); Readln(x, y, z); If x mod 5=0 then x:=x+1;If y mod 5=0 then y:=y+1;If z mod 5=0 then z:=z+1;Writeln('Полученные в итоге числа(X, Y, Z):', x, ', ', y, ', ', z);End.