Program anima;
Var a,b,c:integer; // Стороны треугольника
begin
writeln('Введите длины сторон: '); // Вывод на экран с последующей строкой
readln(a,b,c); // Вводимые переменные (стороны)
if (a=b) and (a=c) and (b=c) then // Условие
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
<span>end.</span>
1)
var
V,a: integer;
begin
write('Введите длину ребра: ');
readln(a);
V:=a*a*a;
writeln('Объём куба: ',V);
end.
2)
var
a,b,c,S: integer;
begin
writeln('Введите длины ребер:');
readln(a,b,c);
S:=2*a*b+2*a*c+2*b*c;
writeln('Площадь поверхности кирпича: ',S);
end.
3)
var
r,l: real;
begin
write('Введите радиус окружности: ');
readln(r);
l:=2*Pi*r;
writeln('Длина окружности: ',l);
end.
5,10, 15, 20, 25, 30,35,40,45....115
В данном тексте встречается не
так много различных прописных букв – это все буквы, входящие в заголовок (Ш, А,
Л, Т, Й, Б, О) и первые буквы строк (С, В, Н). Какая из них может встречаться
один раз. Не трудно заметить, что это не Ш и не Б (они встречаются слишком
часто), а также не С, не В и не Н (они встречаются в стихотворении попарно),
значит, это какая-то из оставшихся букв заголовка и не трудно догадаться, что О.
<span>
Три раз встречается строчная буква и.</span>
Три раза встречается прописная
буква А.
<span>Десять раз встречается
строчная буква е.</span>
<h2>=EXP(x) - ACOS(x)</h2>
где x - ячейка, содержащая число x.