Kwalifikacja: EE8 - Kwalifikacja EE8

Instrukcję case t of ... w przedstawionym fragmencie programu można zastąpić

  var t:integer; begin write('Podaj rok '); readln(x); t:=x div 1000; case t of 1:write('M'); 2:write('MM'); 3:write('MMM'); end;  


Odpowiedzi