Для кодирования речи человечество придумало специальный набор картинок, Для кодирования речи человечество придумало специальный набор картинок, которые отличаются друг от друга. В итоге получилась матрица картинок. Как её стали называть? Для того чтобы побудить компьютер к действию нужно дать ему определенное описание операции. Как это описание называется? В году приостанавливают работу над Большой разностной машиной. В этой машине было устройство, которое являлось прародителем современного внешнего устройства. Назовите это современное устройство вывода информации. Прочитайте текст еще мало времени, и в порт «Дубельт» вечерняя звезда сверкнула над черной линией новой мачты. То был «Секрет», купленный Грэем; трехмачтовый галиот в двести шестьдесят тонн. Какое слово из этого текста совпадает с компьютерным термином для подключения внешних устройств? В архитектуре персонального компьютера есть многоканальная линия связи. Доступ к этой линии имеют несколько функциональных устройств. Назовите её.которые отличаются друг от друга. В итоге получилась матрица картинок. Как её стали называть? Для того чтобы побудить компьютер к действию нужно дать ему определенное описание операции. Как это описание называется? В году приостанавливают работу над Большой разностной машиной. В этой машине было устройство, которое являлось прародителем современного внешнего устройства. Назовите это современное устройство вывода информации. Прочитайте текст еще мало времени, и в порт «Дубельт» вечерняя звезда сверкнула над черной линией новой мачты. То был «Секрет», купленный Грэем; трехмачтовый галиот в двести шестьдесят тонн. Какое слово из этого текста совпадает с компьютерным термином для подключения внешних устройств? В архитектуре персонального компьютера есть многоканальная линия связи. Доступ к этой линии имеют несколько функциональных устройств. Назовите её.
Ответы
// 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 раз(а).
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.
Пример:
Результаты соревнований
69 52 91 62 65 339
70 53 96 56 97 372
78 98 94 61 62 393
62 86 50 58 95 351
82 98 53 56 81 370
75 64 56 85 54 334
69 99 53 72 97 390
55 75 66 59 61 316
99 71 83 75 51 379
91 73 53 88 79 384
k=350
sp=7
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.
Пример:
Результаты соревнований
69 52 91 62 65 339
70 53 96 56 97 372
78 98 94 61 62 393
62 86 50 58 95 351
82 98 53 56 81 370
75 64 56 85 54 334
69 99 53 72 97 390
55 75 66 59 61 316
99 71 83 75 51 379
91 73 53 88 79 384
k=350
sp=7
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
(ос линукс), отпишитесь те, кто действительно понимает
Автор: savva-vika
Яка матиматична операція найвища за пріорететом
Автор: Иванина
1. алфавит
2. команда
3. либо монитор, либо принтер
4. порт