Сканируется цветное изображение размером 40,64 x 40,64 дюйм. Разрешающая сканера - 1200 x 1200 dpi, глубина цвета — 32 бита. Какой информационный объём будет иметь полученный графический файл? ответ: битах
начнём с того,что s трапеции-это 1/2 a*h (1/2 основания на высоту).
теперь,с этими знаниями,переходим в pascal abc.net.
начинаем с названия программы.
program pltrap; (pltrap-это сокращенно площадь трапеции.если хочешь,можешь написать за место этого то,что хочешь ты).
задаем переменные.
var a,b,c: real; (а-это высота,b-это средняя линия,с-сама площадь трапеции. real-тип переменных чисел.real-значит число может быть как целым,так и не целым).
begin - (начало решения).
возьмем наши переменные,которые будем записывать в строку.
readln(a); - высота.
readln(b); - основание.
c: =0.5*a*b - это наша формула для нахождении площади.1/2-это 0,5.в паскале нужно писать в целых числах вместо запятой точку.
writeln(c); - это то,что нам надо найти,то,что высветится,как ответ,в окне вывода.в нашем случае-это площадь.
end. - конец программы (на конце ставим точку).
итак,что у нас получилось:
program pltrap;
var a,b,c: real;
begin
readln(a);
readln(b);
c: =0.5*a*b;
writeln(c)
end.
теперь пишем в окно ввода числа.
первое число-это a (высота),потому что мы ее задали первой в команде readln(a);
потом-b (основание).
и получаем,чему будет равна площадь.например.пишем числа:
Если не математическим, а программным образом, то примерно так
A2(), А3(), А4(),А5() это массивы, в которых сохраним эти числа
ц2=0;
ц3=0;
ц4=0;
ц5=0; // это их индексы
Для ц=100 до 999 Цикл
Если Остаток(ц+1,2)=0 Тогда
ц2=ц2+1;
А2(ц2)=ц;
КонецЕсли;
Если Остаток(ц+2,3)=0 Тогда
ц3=ц3+1;
А3(ц3)=ц;
КонецЕсли;
Если Остаток(ц+3,4)=0 Тогда
ц4=ц4+1;
А4(ц4)=ц;
КонецЕсли;
Если Остаток(ц+4,5)=0 Тогда
ц5=ц5+1;
А5(ц5)=ц;
КонецЕсли;
КонецЦикла;
// Теперь их напечатаем
Сообщить("При увеличении на 1 делятся на 2");
Для ц=1 по ц2 Цикл
Сообщить(А2(ц));
КонецЦикла;
Сообщить("При увеличении на 2 делятся на 3");
Для ц=1 по ц3 Цикл
Сообщить(А3(ц));
КонецЦикла;
Сообщить("При увеличении на 3 делятся на 4");
Для ц=1 по ц4 Цикл
Сообщить(А4(ц));
КонецЦикла;
Сообщить("При увеличении на 3 делятся на 4");
Для ц=1 по ц4 Цикл
Сообщить(А4(ц));
КонецЦикла;
Сообщить("При увеличении на 4 делятся на 5");
Для ц=1 по ц5 Цикл
Сообщить(А5(ц));
КонецЦикла;
Ну вот, где-то так.
Но если математически, то нужно по-другому, и информатика здесь совершенно ни при чём, скорее теория чисел.
Да, в условии не сказано, что ОДНОВРЕМЕННО, поэтому я решал задачу "не одновременно"
Если одновременно, то ещё проще, всего одно условие со сложным условием и можно без массивов.
Ну и ещё: использована функция Остаток(), она есть в любом языке. Если нет(??!), то легко пишется вручную.
начнём с того,что s трапеции-это 1/2 a*h (1/2 основания на высоту).
теперь,с этими знаниями,переходим в pascal abc.net.
начинаем с названия программы.
program pltrap; (pltrap-это сокращенно площадь трапеции.если хочешь,можешь написать за место этого то,что хочешь ты).
задаем переменные.
var a,b,c: real; (а-это высота,b-это средняя линия,с-сама площадь трапеции. real-тип переменных чисел.real-значит число может быть как целым,так и не целым).
begin - (начало решения).
возьмем наши переменные,которые будем записывать в строку.
readln(a); - высота.
readln(b); - основание.
c: =0.5*a*b - это наша формула для нахождении площади.1/2-это 0,5.в паскале нужно писать в целых числах вместо запятой точку.
writeln(c); - это то,что нам надо найти,то,что высветится,как ответ,в окне вывода.в нашем случае-это площадь.
end. - конец программы (на конце ставим точку).
итак,что у нас получилось:
program pltrap;
var a,b,c: real;
begin
readln(a);
readln(b);
c: =0.5*a*b;
writeln(c)
end.
теперь пишем в окно ввода числа.
первое число-это a (высота),потому что мы ее задали первой в команде readln(a);
потом-b (основание).
и получаем,чему будет равна площадь.например.пишем числа:
10
2
s=1/2*a*c=0,5*10*2=10- это число выдаст паскаль.
не забывай про ;
если будут вопросы-пиши мне.