Составить программу по паскалю. надо из 33 переменных( 33 буквы из алфавита) составить слово "вечность". кажется надо использовать массив.

200

286

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

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

KoTBPoccuu

Информатика

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

Var s,st1: string; begin s: ='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; st1: =copy(s,3,1)+copy(s,6,1)+copy(s,25,1)+copy(s,15,1)+copy(s,16,1)+copy(s,19,1)+copy(s,20,1)+copy(s,30,1); writeln(st1); end.

AelitaFox

Информатика

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

{$r-,$q-}{отключаем re} {смысл использовать массив, когда есть строчки? } const s='а бвгдеёжзийклмнопрстуфхцчшщъыьэюя; var i: integer; sfor,send: string; begin sfor: ='вечность'; send: =''; for i: =1 to length(sfor) do send: =send+s[ord(sfor[i])-ord('а')]; writeln(send); end.

anastasiya249

Информатика

4,4(55 оценок)

Program n1; var x: integer; begin writeln('введите число'); readln(x); if (x mod 10 = 5) or (x mod 10 = -5) then writeln('число оканчивается на 5') else writeln('число не оканчивается на 5'); end. program p2; var x, y, sum: integer; begin writeln('введите число'); readln(x); if ((x > = 10) and (x < = 99)) or ((x < = -10) and (x > = -99)) then writeln('является двузначным') else writeln('не является двузначным'); y : = abs(x); sum : = 0; while (y < > 0) do begin; sum : = sum + (y mod 10); y : = y div 10; end; if sum = 8 then writeln('сумма цифр равна 8') else writeln('сумма цифр не равна 8'); end.