Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1. начало
2. оденься
3. выйти из дома
4. если есть машина
5.то сесть в машину
6. завести машину
7.начать путь следования по дороге
8.доехать до села
9. выйти из машины
иначе 10. дойти до остановки
11.дождаться автобуса
12. зайти в автобус
13. доехать до села
14. выйти из автобуса
15. конец
картинка должна быть в папке с программой и быть в формате bmp
usesgraphabc;
varn: string; b: picture; s: integer;
beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.
var s1,s2: string;
begin
s1: ="параллелограмм";
s2: ="гром";
for i: = 1 to length(s1) do
if i > length(s2) then s[i]='';
if s1[i]< > s2[i] then s1[i]=s2[i];
writeln(s1);
end;
end.
чем не вариант, если правил нету)
Популярные вопросы