Ответ:
var i,n,k,a:integer;
begin
write('Введите количество проданных газет ');
readln (k);
write('Введите сколько получает продавец с продажи каждой из первых 50 газет ');
readln (a);
if k<=50 then writeln ('заработок продавца ',k*a)//если продано ровно 50 газет или меньше
else writeln ('Заработок продавца ',50*a+((k-50)*a*1.2))//если продано больше 50 газет
end.
Объяснение:
Если продано ровно 50 газет или меньше
, то заработок рассчитывается просто умножением количества газет (k) на стоимость продажи каждой из первых 50 газет (a).
Если продано больше 50 газет, то вычисляем сколько продавец получит за первые 50 газет (50*a - умножаем 50 газет на стоимость продажи каждой из первых 50 газет (a)) и к этому числу прибавляем деньги полученные за продажу остальных газет ((k-50)*a*1.2) - умножаем количество газет проданных после первых 50 (k-50) на стоимость газет с учётом процентов a*1,2)
Знаешь, разновидность их бывает разная, например Dr.web. Он перехватывает вирусняки до того как они нанесут вред.
А самый первый антивирус был написан CHK4BOMB и BOMBSQAD позволяли производить анализ загрузочного модуля с помощью контекстного поиска и перехватывать операции записи и форматирования, выполняемые через BIOS. На то время они были очень эффективны и быстро завоевали популярность.
Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.
Циклы итерационного типа.. это while и repeat? Тогда отличаются тем, что цикл с параметром всегда выполняется конечное число раз, итерационные циклы могут повторяться бесконечно.
Принцип действия цикла FOR(цикла с параметром): при изменении некой переменной от начала до конца выполняется тело цикла. Всё очень просто!
При вызове процедуры с параметрами необходимо указать все необходимые параметры.
Вызов процедур и функций осуществляется путём простого указания их названия в тексте программы (при необходимости - с требуемыми параметрами)
Процедура просто выполняет определённые действия, функция тоже выполняет некоторые действия, плюс она ещё вычисляет и возвращает в программу некоторое значение.
1) Выбор 1 из 16 снижает неопределенность в 16 раз. 16=2^4, следовательно получается 4 бита информации.
2) Выбор 1 из 256 снижает неопределенность в 256 раз. 256=2^8, следовательно получается 8 бит информации.
