Урок 11 Задача 16
Primary tabs
У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
var z, k, a, i, q, p, t:integer; begin i:=1; k:=0; z:=5; while z>-1 do begin readln(a); writeln(); if ((i mod 4) = 1) then begin k:=a; writeln('a=',k); end; if ((i mod 4) = 2) then begin q:=a; writeln('a=',q); end; if ((i mod 4) = 3) then begin p:=a; writeln('a=',p); end; if ((i mod 4) = 0) then begin t:=a; writeln('a=',t); end; if ((k<15) and (q<15) and (p<15) and (t<15)) then z:=z-1 else z:=z+1; writeln(); writeln('z=',z); writeln(); writeln ('k=',k,' ','q=',q,' ','p=',p,' ','t=',t); writeln(); i:=i+1; end; readln(); end.
- Log in to post comments
- 371 reads