Var a,b,c:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(A div 10) mod 10;
c:= A mod 10;
a:= A div 100;
if (a=b)or(b=c)or(c=a) then WriteLn('Да')
else WriteLn('Нет');
End.
Все вместе это органы чувств
Параметры моделирования:
<span><span>1. </span>Классификация
текстового документа</span><span><span>2. </span>Основные
понятия</span><span><span>3. </span>Создание
текстового документа</span>
Ход работы
<span><span>1.
</span>Текстовый документ: обычный текст-страница,
абзац, строка, слово, символ</span><span> Таблица
– строка, столбец, клетка</span><span> Программный
текст – строка , символ</span><span> Внедренные
объекты – рисунок, электронная таблица,
диаграмма, другие объекты</span><span><span>2.
</span>Основные понятия
и действия - строка заголовка, строка меню, стандартная панель,
панель форматирования, маркеры отступа,
линейка, ползунок, курсор, строка
состояния, рабочая область, полоса
прокрутки.</span><span><span>3.
</span>Создание документа – запуск программы, набор
текста, форматирование, печать.</span>
1) 1200 * 1200 dpi означает, что в квадрате размером 1 дюйм на 1 дюйм сканируется такое количество точек
2) в 1 дюйме = 2,54 см, значит в 10 см содержится 3,94 дюйма (10/2,54 = 3,94)
3) 3,94* 1200 = 4728 пикселей по ширине и по высоте экрана
4) 4728 * 4728 = 22353984 точек в цветном изображении 10 на 10 см
5) 22353984 * 24 = 536495616 бит - информационный объем изображения
Переведем в большие единицы измерения:
536495616 бит / 8 = 67061952 байт / 1024 = 65490,2 Кбайт / 1024 = 64 Мбайта
Ответ: полученный файл будет 64 Мбайта.
Program df;
uses crt;
var a,b,c,max,sum:integer;
begin
sum:=0;
max:=0;
writeln('введите числа а,b,c');
readln(a,b,c);
if (a>0)or(b>0)or(c>0) then sum:=a+b+c else if (a>b)and(a>c) then max:=a else if (b>c) then max:=b else max:=c;
if sum=0 then wrteln('Числа отрицательные большее из них ',max) else writeln('сумма чисел ',sum); end.
