// 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.
Система счисления - символический метод записи чисел, представление чисел с письменных знаков.
Система счисления — это записи (представления) чисел.
Объяснение:
Допустим для кодирования информации в компьютере вместо привычной десятичной системы счисления используется двоичная система счисления.