Банальный пример... человек
Может: пить, есть, учиться, решать задачи сам, думать головой, работать, смотреть фильм, играть и т.д................
Можно попробовать через оператор выбора case (условие со многими выходами) если только такой оператор есть в турбо. в обычном паскале есть.
Например:
writeln(‘Введите цифру ‘);
readln(a);
case a of
0 : writeln (‘ноль‘);
1 : writeln (‘один‘);
2 : writeln (‘два‘);
3 : writeln (‘три‘);
4 : writeln (‘четыре‘);
5 : writeln (‘пять‘);
6 : writeln (‘шесть‘);
7 : writeln (‘семь‘);
8 : writeln (‘восемь‘);
<span> 9 : writeln (‘девять‘);
</span>
А1. С какого знака начинается ввод формулы в ЭТ? (3) =
А2. С помощью какой формулы можно определить частное от деления содержимого ячеек А1 на В1? (2) =А1/В1
А3. С помощью какой функции можно определить среднее арифметическое диапазона ячеек А1:В3 (2) =СРЗНАЧ(А1:В3)
А4. Какой вид имеет в ЭТ выражение
(3) 5*(A2+C3)/(3*(B2-D3)) -- знаменатель должен быть в скобках, знаки умножения написаны явно
B1. Дан фрагмент ЭТ. Найдите сумму значений...
B2. =3*C2^A1/(4*B1*A1)+32*C2*B1^4
Пппппввллнлнн вот такие буквы
Program asd;
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
<span>END.</span>