a,b:integer; d:string[45]; begin SetConsoleOutputCP(1251); writeln('Введите число в диапазоне от 1 дo 100'); write('a='); readln(a); b:=a mod 10; a:=a div 10; case b of 0: d:=''; 1: d:='I'; 2: d:='II'; 3: d:='III'; 4: d:='IV'; 5: d:='V'; 6: d:='VI'; 7: d:='VII'; 8: d:='VIII'; 9: d:='IX'; end; b:=a mod 10; a:=a div 10; case b of 0: d:=''+d; 1: d:='X'+d; 2: d:='XX'+d; 3: d:='XXX'+d; 4: d:='XL'+d; 5: d:='L'+d; 6: d:='LX'+d; 7: d:='LXX'+d; 8: d:='LXXX'+d; 9: d:='XC'+d; end; b:=a mod 10; a:= a div 10; case b of 0: d:=''+d; 1: d:='C'+d; end; writeln('B Римской системе счисления ' ,d); readln; end.
Program WordsCounter(output); var str: string; i, count: integer; begin write('Сторка: '); readln(str); i := length(str); if i > 0 then begin count := 1; while i > 0 do begin if str[i] = ' ' then count := count + 1; i := i - 1; end; end else count := 0; writeln('Число слов: ', count); readln; end.
program z1;
var i:integer;
begin
for i:=34 to 67 do if i mod 2 = 0 then writeln(i)
end.
Объяснение:
Перебираем числа от 34 до 67 с шагом +1, если число чётное, то выводим его на экран с новой строки