Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i : = n div 60; writeln('minut : ',i); end.
Ответ дал: Гость
линейный (следования)
разветвляющийся (развилка)
циклический
Ответ дал: Гость
наверняка двоичные числа надо только определить где ноль а где один
наверно о - one
10101
10110
10111
11000
11001
вроде как сходится, продолжаем
11010
11011
11100
11101
11110
11111
обратную замену самостоятельно
Ответ дал: Гость
картинка должна быть в папке с программой и быть в формате bmp
uses graphabc;
var n: string; b: picture; s: integer;
begin writeln('введите расстояние до зеркала'); 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.
Популярные вопросы