Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx; var a, b, min : integer; begin write('введите число а=');
readln(a);
min: =10; while a < > 0 do begin b: = a mod 10; if b < min then min: =b; a: = a div 10 end; writeln('минимальная цифра = ', min); readlnend.
картинка должна быть в папке с программой и быть в формате 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.
фефраль-месяц зимы; май-месяц весны; август-месяц лета; сентябрь-месяц осени
на египетскую
вавилон-клинопись
финикия-подобие букв без гласных
египет-иероглифы
Популярные вопросы