17. зашифруйте фразу "я учу информатику" с помощью ключа "шифр"

Знания

Информатика

1 ответ:

StrelnikovaAP3 года назад

0 0

Как именно шифровать? Есть мириады способов зашифровать так, чтобы ключом был 'шифр'

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

Дано 3х значное число. Найти сумму и произведение всех чисел

Дарья2910 [14]

Var a,e,z,y,x:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
end.

p.s.
a-трехзначное число
e-сумма чисел
x, y и z - первое, второе и третье число соответственно.

0 0

4 года назад

Люди, помогите, пожалуйста! Я что-то не пойму: 1) Что находится в "..."; 2) Какой принцип тут можно использовать за условие в wh

Денис1707 [2]

Представь члены этой суммы в таком виде: 2/3 = 2*1^2/3, 8/3 = 2*2^2/3,
18/3 = 2*3^2/3
То есть они все построены по общей формуле 2n^2/3.
Под "..." скрываются члены от 4 до 15.
S = 2*1^2/3 + 2*2^2/3 + 2*3^2/3 + 2*4^2/3 + 2*5^2/3 + 2*6^2/3 + 2*7^2/3 +
2*8^2/3 + 2*9^2/3 + 2*10^2/3 + 2*11^2/3 + 2*12^2/3 + 2*13^2/3 + 2*14^2/3 +
2*15^2/3
В цикле, естественно, надо менять номер n. Примерно так:
var n: integer, S: double;
BEGIN
S:=0; n:= 1;
While n <= 15 do
begin
S:= S + 2*n*n/3;
n:=n+1;
end;
write S;
END.

0 0

4 года назад

Прочитать ещё 2 ответа

Решите пожалуйстаа,срочноо надоо) вывести на экран все степени числа а начиная от 1 до б ,а и б вводятся клавиатурой . буду очен

hjvfirf3003 [703]

Var
a,b,i,j,c:integer;
begin
writeln('Vvedite a:');
readln(a);
writeln('Vvedite b:');
readln(b);
writeln('Stepeni chisla: ',a);
for i:=1 to b do
begin
c:=1;
for j:=1 to i do
c:=c*a;
writeln(c);
end;
end.

0 0

4 года назад

Помогите пожалуйста перевести число 606 из десятичной системы в двоичную,восьмеричную,шестнадцетиричную.

SVIRIDIUS

1001011110 двоичная

1136 восьмеричная

25E шестнадцетиричная

nyaa ;з

0 0

4 года назад

12. Составить блок-схему и написать программу вычисления значения функции: СРОЧНО!!! ПоЗяЗя 30 БАЛОВ

000111222

(Программа Паскаль )
var f : integer;
begin
readln (f);
if (f < 0) then writeln (-3)
else writeln (sqrt (f));
end.

0 0

1 год назад