Uses Crt; // подключение модуля Crt
Var
a,b,c,S:real; // объявление переменных вещественного типа
Begin
ClrScr; // очистка консоли перед новым вводом переменных
Write('Введите три числа: '); // вывод приглашения к вводу
ReadLn(a,b,c); // считывание введённых с клавиатуры чисел в переменные a,b и c
S:=a+b+c; // запись суммы чисел в переменную S
if S > 10 then Write('Их среднее арифметическое: ',S/3)
else if S = 10 then Write('Их произведение: ',a*b*c)
else Write('Я ничего не понимаю');
ReadLn // ожидание нажатия пробела (чтобы консоль не закрылась сразу)
End.
Пример работы программы:
Введите три числа: 1 7 10
Их среднее арифметическое: 6
For i = 1 To 9
For j = 1 To 9
s$=String(i*j)
if length(s$)=1 then s$=" "+s$ else if length(s$)=2 then s$=" "+s$
Print s$;
Next j
Print
Next i
End
Результат работы программы:
1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
Замечание: таблица на самом деле ровная, это тут ширина пробела и ширина цифры различна, поэтому сдвиг.
A) Запишите элементы действия, примененные в форматирование.
Адреса ячеек Форматирование
А1-А7:Этот элемент действия называется автозаполнение порядкового номера в Excel
Е2-Е7, С7-Е7.А этот элемент действия называется автозаполнением суммы тоже в Exel
Сто-скатерть пол-коврик роман-глава стихотворение-поэт песня композитор самолёт-лётчик
3 слова будут выделены полужирным (b) курсивом (i).
"Кит", "Море знаний"
Правильный ответ под буквой В
