Як виконується фрагмент алгоритму наведений на малюнку 3.45?

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

 

1) ра, ии, та (тэ) и ро (эр). в египетском языке слово «рот» звучало как «эр», и они стали иероглифом обозначать не только слово «рот», но и согласный звук «р». точно так же иероглиф «хлеб» употреблялся для обозначения звука «т», потому что по-египетски «хлеб» — «тэ», и так далее. 2) в египетском письме более семисот иероглифов. 3) в древнем египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен). в этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. на первых порах значение фонетических иероглифов было , но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . это важное усовершенствование было сделано в письме других народов. 4) вообще-то, само понятие иероглиф не подразумевает передачу каких либо букв или звуков, они "значение" слова. это не алфавит или азбука, а набор знаков для записи определенных понятий, т.е. слов целиком хотя, в иероглифических системах существуют знаки для передачи именно одной буквы или слога 5) лингвисты того времени не знали как могут звучать какой то конкретный иероглиф и является ли он "буквой" или же обозначает целое понятие. после находки розеттского камня, с текстами на 3х языках (древнеегип-м, египетском (демотическое письмо) и древнегреческом) шампальон начал изучать его и сопоставлять тексты друг другу. отыскав имена правителей (александра, клеопатры выяснил, что иероглифы являются как бы "буквами", т.е. имеют какое то чтение, пишутся в основном согласные, хотя некоторые гласные (а, и также присутствуют. некоторые иероглифы читаются одним звуком, а некоторые двумя или тремя 6) египтяне, как и некоторые другие народы, не писали гласных. поэтому после слова, написанного звуковыми знаками, ставился определитель - знак, поясняющий читающему общее значение слова. например, иероглиф, напоминающий "яму с водой", обозначал в одном случае слово “колодец”, в другом – сочетание двух согласных “хм”, а в третьем тот же знак не читался, а лишь подсказывал, что речь в тексте идет о воде - прудах, болотах и т.п.

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.