Есть ответ 👍

Создать базу данных "успеваемость":
1. построить модель данных для выбранной предметной области
2. подготовить информацию для заполнения базы данных.
3. создать базу данных и заполнить ее подготовленной информацией
успеваемость (сведения об успеваемости учащихся школ административного района за учебный год).
база данных должна состоять из четырех таблиц, образующих следующую схему: школа---класс---предмет---успеваемость
в таблицах должна содержаться следующая информация: номер школы, адрес, фио директора школы, телефон директора, количество учащихся в школе, номер класса, фио классного руководителя, количество учащихся в классе, название предмета, фио учителя, наличие у учителя почетных званий, наличие специализированного кабинета, фамилия и имя ученика, оценка за 1-ю четверть, оценка за 2-ю четверть, оценка за 3ю четверть, оценка за 4ю четверть, годовая оценка.
98 ,главное ! буду безумно

115
204
Посмотреть ответы 1

Ответы на вопрос:


Var sum, n: longint; begin for var i: =1 to readinteger ('введите кол-во чисел: ') do begin n: =readinteger ('введите число: '); if abs(n) in [10..99] then inc (sum, n); end; write ('сумма двузначных: ', sum); end.

Популярно: Информатика