// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 begin var k:=0; var Terminate:boolean; repeat Terminate:=True; var n:=ReadInteger('Введите номер месяца:'); case n of 1,3,5,7,8,10,12:Writeln('31 день'); 4,6,9,11:Writeln('30 дней'); 2:Writeln('28 дней в обычном году и 29- в високосном') else begin Writeln('Вы ошиблись, номер должен быть от 1 до 12'); Inc(k); Terminate:=False end end until Terminate; if k>0 then Writeln('Вы ошиблись ',k,' раз(а).') end.
Тестовое решение: Введите номер месяца: 18 Вы ошиблись, номер должен быть от 1 до 12 Введите номер месяца: 0 Вы ошиблись, номер должен быть от 1 до 12 Введите номер месяца: 5 31 день Вы ошиблись 2 раз(а).
Const n=10; m=5; var a:array[1..n,1..m+1] of integer; i,j,k,sp,s:integer; begin Randomize; writeln(' Результаты соревнований'); for i:=1 to n do begin s:=0; for j:=1 to m do begin a[i,j]:=random(50)+50; write(a[i,j]:4); s:=s+a[i,j]; end; a[i,m+1]:=s; writeln(s:5); end; write('k='); readln(k); sp:=0; for i:=1 to n do if a[i,m+1]>=k then sp:=sp+1; writeln('sp=',sp); end.
1.Объективность=Эти брюки стоят три тысячи рублей
2.Необъективность=Эти брюки дорого стоят
3.Достоверность= все ныне живущие люди умрут
4.Недостоверность=люди бессмертны
5.Полнота=Ира, моя родная сестра, приехала погостить на пару дней
6.Неполнота=девушка
7.Актуальность=на вашем счёте 2 рубля
8.Неактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелей
9.Ценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницы
10.Не ценная=та же статья но для здорового шахтёра в уральских горах ценна не будет
11.Понятная информация=в долларе 56,89 рубля
12.Непонятная информация=ドル56.89ルーブル
Объяснение: