// PascalABC.NET 3.0, сборка 1073 var c:char; begin Write('Введите римскую цифру (I,V,X,L,C,D,M): '); Readln(c); case c of 'I':Writeln('1'); 'V':Writeln('5'); 'X':Writeln('10'); 'L':Writeln('50'); 'C':Writeln('100'); 'D':Writeln('500'); 'M':Writeln('1000'); else Writeln('Вы ошиблись') end end.
// PascalABC.NET 3.0, сборка 1073 var i,n:integer; s:string; begin Write('Введите свое имя: '); Readln(s); if s[1]='И' then begin n:=Length(s)-1; s:=s[1]; for i:=1 to n do s:=s+'*' end; Writeln('Результат работы: ',s) end.
Тестовое решение: Введите свое имя: Игорь Результат работы: И
Введите свое имя: Сергей Результат работы: Сергей
2. Решение, каким оно должно быть, но этому не учат
// PascalABC.NET 3.0, сборка 1073 begin var s:=ReadString('Введите свое имя: '); if s[1]='И' then s:=s[1]+StringOfChar('*',Length(s)-1); Writeln('Результат работы: ',s) end.
(9 + 25 + 455 + 3656 + 10988) / 5 = 3026.6
ответ: 3026.6