Var
День,месяц:byte;
Begin
Write('№ дня = ');ReadLn(День)
Var C: = 365 - День
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
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.