Не ну я ток в 6 классе Сорян пацан
Program Kolobok;
var zver:string;
begin
writeln('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');
writeln('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');
writeln('Kolobok katitsya, a navstrechu yemu zver');
writeln('Vvod zverya');
readln(zver);
if Zver = 'lisa' then
begin
writeln('Kolobok poyot pesenku dva raza');
writeln('Proshchay, Kolobok ...');
end
else
begin
writeln('Kolobok poyot pesenku');
writeln('Katitsya dalshe');
end;
end.
Var s:string;
begin
for var i:=1000 to 9999 do
begin
s:=i.ToString;
if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))<4)then write(i,' ');
end;
end.
Сканер состоит из нескольких частей механической которая движется вдоль листа на нем расположена лампа подсветки, свет отражаясь от листа попадает на зеркало которое в свою очередь отражает его на чувствительную матрицу вот ка на картинке
Вот держи две проги в скринах !!!!!!!!!!!!!!!!!!!!!!!!!!!!