Pascalabcnet ввести строку из латинских букв. ввести натуральное число. зашифровать исходную строку, сдвигая буквы на введенное количество позиций.

217

254

Посмотреть ответы 2

Ответы на вопрос:

Pyben

Информатика

4,5(97 оценок)

1. var s1,s2: string; i,n: integer; begin writeln('введите строку: '); readln(s1); writeln('введите число: '); readln(n); s2: =''; for i: =1 to length(s1) do s2: =s2+chr(ord(s1[i])+n); writeln(s2); end. пример: введите строку: program введите число: 5 uwtlwfr 2. begin var s: =readlnstring('введите строку: '); var n: =readlninteger('введите число: '); s.select(c-> chr(ord(c)+; end. пример: введите строку: program введите число: 5 uwtlwfr

eleonora1306200

Информатика

4,8(88 оценок)

Var a,b,c,prime: longhint; begin writeln('введите число'); readln(a); c: =a; for b: =1 to a do begin if (c mod b=0) then prime: =prime+1; end; if (prime> 2) then writeln('число не простое') else writeln('число простое '); end.