Написать алгоритм примера 344*81 (это умножение )

344*81=27864 (умножить)

pascal / delphi

1) program zadanie_1;

var ss: string; i: integer; flag: boolean;

begin

write('введите число: ');

readln(ss);

for i: =1 to length(ss) do

if (ss[i]='1') then begin flag: =true; break; end else flag: =false;

if (flag=true) then writeln('число содержит 1') else writeln('число не содержит 1');

readln;

end.

2) program zadanie_2;

var n,c,c1,c2,c3: integer;

begin

write('введите число: ');

readln(n);

c1: =n div 100;

c2: =n mod 100 div 10;

c3: =n mod 100 mod 10;

c: =c3*100+c2*10+c1;

writeln('новое число: ',c);

readln;

end.

на папирусах начало новой мысли (новый абзац) выделяли красной краской.

новый абзац в тексте мы начинаем с красной строки.

папирус стоил дорого. поэтому случалось, что старую запись смывали и поверх нее писали новый текст.

это -- палимпсест. писали заостренными палочками с расщепленными, как теперешние перья, кончиками.

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

начало фразы, но не прописная буква -- в египетском письме слова не отделялись друг от друга.

красной точечкой отделялись отдельные фразы в поэтических произведениях.