Статья, набранная на компьютере, содержит 4 страницы, на каждой из которых 10строк, в каждой строке X символов. Найдите кол-во символов на 1ой строке, если объем статьи 480Байт
Предложено верное решение. Программа правильно работает на всех приведённых выше тестах. Программа может быть записана на любом языке программирования 2
Программа выдаёт неверный ответ на одном из тестов, приведённых выше. Например, решение, в котором неверно задано условие отбора чисел: (a mod 8=0)or(a mod 10=6), выдаст неправильный ответ на тесте № 1. 1
Программа выдаёт на тестах неверные ответы, отличные от описанных в критерии на 0
uses graphabc;
begin
setwindowsize (600,555);
SetPenWidth(2);
rectangle (200,200,400,499);
FloodFill(300,300,clBurlyWood);
rectangle (225,225,275,275);
FloodFill(250,250,clLightCyan);
line (225,250,275,250);
line (250,250,250,275);
rectangle (325,225,375,275);
FloodFill(350,250,clLightCyan);
line (325,250,375,250);
line (350,250,350,275);
rectangle (225,400,275,450);
FloodFill(250,425,clLightCyan);
line (225,425,275,425);
line (250,425,250,450);
rectangle (325,425,375,500);
FloodFill(350,490,clMaroon);
pie (350,425,25,0,180);
FloodFill(350,420,clMaroon);
line (200,200,300,100);
line (300,100,400,200);
FloodFill(300,110,clChocolate);
circle (300,160,20);
FloodFill(300,160,clLightCyan);
line (375,175,375,100);
line (375,100,355,100);
line (355,100,355,155);
FloodFill(370,110,clLightGray);
circle (550,50,30);
FloodFill(525,50,clYellow);
line (535,25,510,0);
line (525,35,470,15);
line (520,50,475,50);
line (525,65,485,90);
line (537,78,505,110);
line (550,80,535,120);
line (565,75,565,120);
line (575,65,595,90);
pie (500,413,30,0,180);
FloodFill(500,400,clRed);
rectangle (495,413,505,500);
FloodFill(500,495,clChocolate);
end.
Решение.
15.1 Следующий алгоритм выполнит требуемую задачу.
нц
пока справа свободно
закрасить
вправо
кц
нц
пока снизу свободно
закрасить
вниз
кц
закрасить
нц
пока не (снизу свободно)
влево
кц
вниз
нц
пока не (справа свободно)
закрасить
вниз
кц
закрасить
вправо
нц
пока не (сверху свободно)
закрасить
вправо
кц
15.2 Решение
var a, s: integer;
begin
s: = 0;
readln(a);
while a<>0 do begin
if (a mod 8=0) and (a mod 10 = 6) then
s : = s + a;
readln(a);
end;
writeln(s)
end.
Для проверки правильности работы программы необходимо использовать следующие тесты:
Входные данные Выходные данные
1
8
6
10
0
0
2
16
0
16
3
16
96
5
0
112
Спрятать критерии
Критерии проверки:
Критерии оценивания выполнения задания 15.
Алгоритм правильно работает при всех допустимых исходных данных 2
При всех допустимых исходных данных верно следующее:
1) выполнение алгоритма завершается, и при этом Робот не разбивается;
2) закрашено не более 10 лишних клеток;
3) остались незакрашенными не более 10 клеток из числа тех, которые должны были быть закрашены
1
Задание выполнено неверно, т. е. не выполнены условия, позволяющие поставить 1 или 0
Максимальный 2
Критерии оценивания выполнения задания 15.
Предложено верное решение. Программа правильно работает на всех приведённых выше тестах. Программа может быть записана на любом языке программирования 2
Программа выдаёт неверный ответ на одном из тестов, приведённых выше. Например, решение, в котором неверно задано условие отбора чисел: (a mod 8=0)or(a mod 10=6), выдаст неправильный ответ на тесте № 1. 1
Программа выдаёт на тестах неверные ответы, отличные от описанных в критерии на 0
Максимальный 2