Для паскаля:
uses CRT;
var a, b: integer;
begin
write (' Введите длину первого катета ');
read (a);
write (' Введите длину второго катета ');
read (b);
write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.
Привет, как настроение? Меня зовут Алина, мне 18 лет. Хочу познакомиться с хорошим парнем..
Если тебе это интересно, напиши мне тут - http://onetimesex.com
Мой ник - KissKa
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
Writeln(s) // вывод...
end.
<u>Пояснения.</u>
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при помощи JoinIntoString.
<u>Пример</u>
А роза упала на лапу Азора
А роза на лапу Азора
36 Кбайт
1)24/80=0.3
2)0.3*120=36
Ответ:36 Кбайт
I:=k*i
1)i=I/k=2²¹/2²⁰=2
Ответ:4
2)
k=21-кол-во символов в тексте (если не считать пробелы).
Эта задача имеет несколько разных решений, в зависимости от мощности алфавита.
Если считать
1)N=64 (33 буквы в алфавите)
i:=6;
I=6*21=126 бит
или
2)N=256 (все сущ. символы)
i=8
I=8*21=168бит
или
3)N=16 (весь алфавит сост только из имеющихся букв в предложении)
i=4;
I=4*21=84бит
