4 года назад

Написать программу, которая считает сумма всех букв, которые входят в фамилию введенную с клавиатуры латинскими буквами

Знания

Информатика

1 ответ:

Николай Вологда4 года назад

0 0

<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>

begin
ReadlnString.Select(c->integer(Ord(c))).Sum.Println
end.

Читайте также

Графический файл нарисован с помощью палитры из 128 цветов размером 500х120 пикселей. Каков информационный объем этого файла в б

Талмуд

Надо найти I. i=128. K=500*120. I=K*i=500*120*128=60000*128=7680000 бит=960000байт. Можно было бы представить 128 как 2 в 7 степени, и считать в степенях двойки. но перевод нужен только в байты

0 0

3 года назад

Напишите программу, которая находит сумму, произведение и среднее арифметическое трех целых чисел, введенных с клавиатуры. Напри

slava2267 [14]

Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if b<0 then Write(a,b)
else Write(a,'+',b);
if c<0 then Write(c,' = ',a+b+c)
else Write('+',c,' = ',a+b+c);

WriteLn;
if b<0 then Write(a,'*(',b,')')
else Write(a,'*',b);
if c<0 then Write('*(',c,') = ',a*b*c)
else Write('*',c,' = ',a*b*c);

WriteLn;
if b<0 then Write('(',a,b)
else Write('(',a,'+',b);
if c<0 then Write(c,')/3 = ',(a+b+c)/3)
else Write('+',c,')/3 = ',(a+b+c)/3);
End.

0 0

4 года назад

Дано целое число Х и натуральное N. Составьте алгоритм вычисления Х^n. Проверьте алгоритм трассировкой.Напишите программу на Пас

vora11

Готово :)
..................

0 0

3 года назад

Помогите с решением задачи по информатике (фото), пожалуйста, расптшите решение

ron17

Б: 1; - один возможный путь из А в Б
В: 3; - возможные пути из А в В
Г: 1; - один возможный путь из А в Г
Д: 1+3=4; - т.к. в вершину Д непосредственно можно попасть только из вершин Б и В, то количество путей из А в Д будет равно сумме количеств путей из А в Б и из А в В.
Далее по такому же принципу.
Е: 3+1=4; (В+Г)
Ж: 4+3+4=11; (Д+В+Е)
З: 11+4=15; (Ж+Е)
И: 4+11=15; (Д+Ж)
К: 15+11+15=41 (И+Ж+З)

41 путь

0 0

4 года назад

Вася узнал, что в мире информационных технологий есть знаменитая "Банда четырёх". Помогите Васе определить, про кого идёт речь.

fedorrr [6]

Ральф Джонсон, Эрих Гамма, Ричард Хелм, Джон Влиссидес.

0 0

4 года назад