1 клетка = 10
Каждый проход нарисован новым цветом
Первый - синим
Второй - голубым
Третий - зеленым
Красный - движение с поднятым хвостом, т.е. когда черепашка передвигается но не рисует
Program programma;
Uses crt;
var y,x: integer;
Begin clrscr;
write('Введите х = ');
readln(x);
if x>2 then y:=sqr(x)
else y:=4;
writeln('Y = ', y);
end.
<span>Древнеиндийские книги делались из пальмовых листьев. Пластины из листьев через специальные отверстия скрепляли веревочкой. На пальмовых листьях писали чернилами из сажи, разведенной в подслащенной воде.</span>
<span>
</span>
Ответ:
1.
var t1,t2,t3,u1,u2,u3:integer;
begin
write('t1 = ');
readln (t1);
write('u1 = ');
readln (u1);
write('t2 = ');
readln (t2);
write('u2 = ');
readln (u2);
write('t3 = ');
readln (t3);
write('u3 = ');
readln (u3);
if t1*100+u1<t2*100+u2+t3*100+u3 then writeln('Денег не хватает')
else writeln('Сдача ',(t1*100+u1-(t2*100+u2+t3*100+u3))div 100,'р ',(t1*100+u1-(t2*100+u2+t3*100+u3))mod 100,'к')
end.
2.
var s:string;
begin
write('Введите ФИО ');
readln (s);
if s[length(s)]='а' then writeln('Женщина')
else if s[length(s)]='ч' then writeln('Мужчина')
else writeln('Не могу определить ваш пол.')
end.
Объяснение:
Вторая задача выдаёт не 100% результат, т.к. бывают сложные имена. Также важно, чтобы отчество вводилось последним.