oniks-plus
?>

Какая формула соответствует следующему сложному высказыванию? "В следующем году я начну изучать немецкий язык (a) или итальянский (b), а ты будешь заниматься плаванием (с) или танцами (d"

Информатика

Ответы

manager9
Program Shifr;
var s1,s2,alf:string;
i:integer;
key, Kod:integer; //ключ шифрования
f1,f2:text;
BEGIN
alf:='';
assign(f1,'Dannie.txt'); 
assign(f2,'Shifr.txt'); 
reset(f1);
rewrite(f2);
writeln('Введите ключ шифрования от 1 до 25:');
readln(key);
while Not(Eof(f1)) do
  begin
  readln(f1,s1);
  s2:='';
  for i:=1 to length(s1) do
    begin
    Kod:=Pos(s1[i],s1);
    Kod:=Kod+key;
    if Kod>26 then Kod:=Kod-26;
    if Kod<1 then Kod:=Kod+26;
    s2:=s2+alf[Kod];
    key:=-key;
    end;
  writeln(f2,s2);
  end;
close(f1); 
close(f2); 
END. 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Какая формула соответствует следующему сложному высказыванию? "В следующем году я начну изучать немецкий язык (a) или итальянский (b), а ты будешь заниматься плаванием (с) или танцами (d"
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Kozlovao4
АртакСергеевич1723
Sofinskaya1185
vkurnosov20008
Belokonev286
ilds88
vkorz594
mbobo28311
e-liza-k
veronica1344
uksusoval617
ЮрьевичКарпова1564
orantus3
tatyana58
dashafox8739