Египетское письмо не передавало звуков языка и один иероглиф можно было прочитать по разному. Лингвисты того времени не знали как могут звучать какой то конкретный иероглиф и является ли он "буквой" или же обозначает целое понятие. после находки Розеттского камня, с текстами на 3х языках (древнеегипетском, египетском (демотическое письмо) и древнегреческом) Шампальон начал изучать его и сопоставлять тексты друг с другом. Отыскав имена правителей (Александра, Клеопатры ...) выяснил, что иероглифы являются как бы "буквами", т.е. имеют какое то чтение, пишутся в основном согласные, хотя некоторые гласные (а, и ...) также присутствуют. некоторые иероглифы читаются одним звуком, а некоторые двумя или тремя ...
p - произведение s - сумма i - цикловая переменная
1. Цикл с предусловием While
var p, s, i : longint; [или integer] begin p := 1; s := 0; i := 101; while i < 200 do begin if i mod 5 = 0 then begin p := p * i; s := s + i; end; i := i + 1; [или ing(i)] end; writeln(p); writeln(c) end.
2. Цикл с постусловием Repeat
var p, s, i : longint; [или integer] begin p := 1; s := 0; i := 101; repeat if i mod 5 = 0 then begin p := p * i; s := s + i; end; i := i + 1; [или ing(i)] until i >= 200; writeln(p); writeln(c) end.
3. Цикл For
var p, s, i : longint; [или integer] begin p := 1; s := 0; for i := 101 to 199 do begin if i mod 5 = 0 then begin p := p * i; s := s + i; end; end; writeln(p); writeln(c) end.
p - произведение
s - сумма
i - цикловая переменная
1. Цикл с предусловием While
var
p, s, i : longint; [или integer]
begin
p := 1;
s := 0;
i := 101;
while i < 200 do
begin
if i mod 5 = 0 then
begin
p := p * i;
s := s + i;
end;
i := i + 1; [или ing(i)]
end;
writeln(p);
writeln(c)
end.
2. Цикл с постусловием Repeat
var
p, s, i : longint; [или integer]
begin
p := 1;
s := 0;
i := 101;
repeat
if i mod 5 = 0 then
begin
p := p * i;
s := s + i;
end;
i := i + 1; [или ing(i)]
until i >= 200;
writeln(p);
writeln(c)
end.
3. Цикл For
var
p, s, i : longint; [или integer]
begin
p := 1;
s := 0;
for i := 101 to 199 do
begin
if i mod 5 = 0 then
begin
p := p * i;
s := s + i;
end;
end;
writeln(p);
writeln(c)
end.