Решите задачи по информатике хоть какие-то) : 1) Заданы значения переменных x, y и z. Составьте прлграмму, с которой найдите среднее арифмитическое кубов этих чисел. 2)Заданы длины катетов прямоугольного треугольника. Составьте программу, с которой опредилите гипотенузу и периметр этого треугольника. 3)Задано трехзрачное число. Составьте программу, с которой опредилите произведения кубов цифр этого числа. 4)Задано трехзначное число. Составьте программу, с которой определите, равняются ли в нем крайние цифры. 5)Составьте программу, с которой определите точки с целыми положительными координатами, лежащие на окружности x^2+y^2=305.

1. Рабочий стол – область экрана, на которой отображаются окна (в том числе диалоговые), значки и меню.2. Окно – ограниченная (прямоугольная) часть экрана, предназначенная для выполнения одной программы или отдельной ее функции.3. Значок и ярлык (пиктограмма) – ссылка на любой элемент, доступный на компьютере или в сети, такой как программа, файл, папка, диск, веб-страница , принтер или другой компьютер.4. Кнопка – элемент, который после воздействия на него (например, выполнения пользователем щелчка кнопкой мыши) запускает некоторую последовательность действий.5. Панель – группы логически взаимосвязанных значков, элементов управления и индикации состояния операционной системы или выполняющейся программы.6. Меню – набор команд, действий, режимов, установок и т.д.7. Папка – элемент , предназначенный для группировки файлов по какому-либо признаку.8. Приложение – прикладная программа.9. Документ – самостоятельный файл, созданный в приложении и получивший при сохранении имя, с которого он будет использоваться в дальнейшем.

// PascalABC.NET 3.0, сборка 1111
const
  alpha=['a'..'z'];
  digits=['0'..'9'];
var
  na,nd,i:integer;
  s:string;
begin
  na:=0; nd:=0;
  Write('Введите текст: '); Readln(s);
  for i:=1 to Length(s) do
    if s[i] in alpha then Inc(na)
    else
      if s[i] in digits then Inc(nd);
  if na>nd then Writeln('В тексте больше букв')
  else
    if na<nd then Writeln('В тексте больше цифр')
    else Writeln('В тексте букв и цифр поровну')
end.

Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв