Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.
в десятичной:
45 = (4*8)^1 + (5*8)^0 = 32 + 1 = 33
106 = (1*8)^2 + (0*8)^1 + (6*8)^0 = 64 + 1 = 65
в двоичной:
45 = 101101
106 = 1101010
картинка должна быть в папке с программой и быть в формате 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.
qbasic
? "введите стоимость книг и сумму денег соответсвенно через запятую"
input a,b
if a=b then 1 else 2
1 ? "" : goto 10
2 if a> b then 3 else 4
3 a-b=c
? "не хватает денег,доплатите"; c : goto 10
4 b-a=r
? "ваша здача"; r
10 end
Популярные вопросы