Объяснение:
^ не ставится у меня, но выполняет свои действия, у себя его ставьте!
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Параметры моделирования: 1. Классификация текстового документа 2. Основные понятия 3. Создание текстового документа Ход работы 1. Текстовый документ: обычный текст-страница, абзац, строка, слово, символ Таблица – строка, столбец, клетка Программный текст – строка , символ Внедренные объекты – рисунок, электронная таблица, диаграмма, другие объекты 2. Основные понятия и действия - строка заголовка, строка меню, стандартная панель, панель форматирования, маркеры отступа, линейка, ползунок, курсор, строка состояния, рабочая область, полоса прокрутки. 3. Создание документа – запуск программы, набор текста, форматирование, печать.
1)
HDD = 320*1024 Mb = 327680 Mb
Кол-во = 327680 / 700 шт = 469 шт (округляем в большую сторону)
Вес = 469 * 15 г = 7035 г
2)
Данные = 256000 * 2 * 60 бит = 30720000 бит = 3840000 байт = 3750 Кбайт
Вычисление радиуса окружности, описанной вокруг треугольника:
Блок-схема - в прилагаемом файле.
var a,b,c,p,s,r:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
r:=a*b*c/(4*s);
writeln('R = ',r:5:2);
end.
Пример:
3 4 5
<span>R = 2.50</span>