Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
картинка должна быть в папке с программой и быть в формате 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 n,i: integer;
begin
read(n);
for i: = 2 to n-1 do
if n mod i = 0 then writeln('no');
end.
s: string;
read(s);
for i: = 1 to length(s) do
if s[i]="a" then n: =n+1;
writeln(n);
Популярные вопросы