Ну например на Паскале так, только совсем без проверок корректности вводимых данных, а так можно было отработать еще и отсутствие хорошистов отличников просто, если х=0, то и их средний балл тоже выводить 0.
Жила Тётушка Совунья она очень любила информатику и учила всех!
Но один мальчик Сема не любил информатику ,Тётушка учила его ,учила,учила,но он всеровно не хотел учить этот предмет. Один раз когда прозвенел звонок после урока Русского языка (следующий урок был информатика) Сема сказал всем что"А вы знаете ,что информатика это легкий придмет и поэтому я его не учу " А все подумали" Может Семка прав? Довайте выбрасим тетрадки и будем играть лучше на уроке , А довай" (Сказали дети) И выбрасили тетрадки.
Они пришли на урок и начели беситься . Пришла Тётушка Совунья и Сказала"Дети!
Вы чего Информатика Очень полезный урок !" Дети задумались.... Тетушка совунья" Если вы не будите знать Инорматику вы не сможите играть в ваши современные компьютеры!" И дети всё поняли,Даже Сема всё понел ,и начел учить информатику.
Модель - это объект, который используется в качестве "заместителя", представителя другого объекта с определённой целью
натурная(материальная) модель- реальные предметы, в уменьшенном или увеличенном виде воспроизводящая внешний вид, структуры и поведение объекта
информационная модель - описания объекта-оригинала на языках кодирования информации
<span>а) =(B7+B9)/C10</span>
<span>б) =(C6+C8)/D9</span>
<span>в) =(A5+A7)/B8</span>
г) =(D9+D11)/E12
<span>
</span>
program raf105;
const
s = 100;
var b,k,t: integer;
begin
writeln('Все возможные решения задачи:');
for b:=0 to (s div 5)+1 do
for k:=0 to ((s - b*5) div 3)+1 do
begin
t := trunc( (s - b*5 - k*3) / 0.5 );
if ((b+k+t) = 100) and ( (b*5+k*3+t*0.5)=s)
then begin
writeln;
writeln('Быков: ',b);
writeln('Коров: ',k);
writeln('Телят: ',t);
end;
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
