<em>// PascalABC.NET 3.2, сборка 1359 от 11.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:real;
Write('Введите через пробел длины катетов: '); Read(a,b);
Writeln('Длина гипотенузы равна ',sqrt(a*a+b*b))
end.
<u>Пример</u>
Введите через пробел длины катетов: 15.6 18
Длина гипотенузы равна 23.819319889535
2) 2,5 Кб * 1024 * 8 =20480 бит
3)Допустим, что текст на русском языке и мощность алфавита 32 символа, тогда информационный вес каждого символа будет равен 2∧5= 32 =5 бит
5бит *3 страницы * на 215 символов=3210 бит
4)Ошибка наверное в объеме информации, не может символ весить меньше 1 бита.
<span>Галактики являются, а вселенная - нет. Ведь нет границ у вселенной</span>
Опрератор ввода:
Read (значение следующего данного считывается с этой же строчки);
Readln (значение следующего данного считывается с новой строчки)
Опрератор вывода:
Write (выводит информацию и оставляет курсор в той же строке)
Writeln ( выводит информацию и переводит курсор на следующую строку)
Writeln (...) (выводит пустую строку
Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.
Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).
алг
нач
цел а,б,н,ас=0,бс=0
лит ат,бт
вывод 'введите целое трёхзначное число: '
ввод а
вывод 'введите целое четырёхзначное число: '
ввод б
ат := цел_в_лит(а)
нц для н от 1 до длин(ат)
ас := ас + Цел(ат[н],0)
кц
вывод 'сумма цифр трёхзначного= ', ас, нс
бт := цел_в_лит(б)
нц для н от 1 до длин(бт)
бс := бс + Цел(бт[н],0)
кц
вывод 'сумма цифр четырёхзначного= ', бс, нс
вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б
кон
