Question

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

Answer 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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

создала уже

Answer 6

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