Дано: x,y,z. вычислить количество чисел, кратных 5. составить бса и текст программы.

222

401

Посмотреть ответы 2

Ответы на вопрос:

ира12345612

Информатика

4,8(71 оценок)

Var x,y,z: integer; n,m,k: word; begin readln(x,y,z); if x mod 5 =0 then n: =1; if x mod 5< > 0 then n: =0; if y mod 5 = 0 then begin m: =1; m: =n+m; end; if y mod 5 < > 0 then begin m: =0; m: =n+m; end; if z mod 5 =0 then begin k: =1; k: =k+m; end; if z mod 5 < > 0 then begin k: =0; k: =k+m; end; writeln(k); end.