1) а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7
2) a) readln(а); readln(х);
б) writeln(z)
в) var b,c : real; (чаще всего используется при нахождении вещественных чисел)
var a: integer; (чаще всего используется при нахождении вещественных чисел)
г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)PROGRAM PR1;
var n:integer;
begin
for n:=1 to 7 do
writeln('trud');
end.
Не на том сайте ты решил об этом попросить, но раз уж спросил то я постараюсь внятно ответить.
Тебе нужно вставить загрузочную флешку с любимым из windows, но лучше всего windows 7, загрузиться с неё, и дождаться когда появится кнопка "Установить". В самом низу у тебя будет "восстановления системы". Нажимаешь на неё, у тебя появиться окошко с двумя галочками. Выбиваешь первый и нажимаешь Далее, после чего выбираешь Командная строка, где вводишь такие команды
bootrec /fixmbr
bootrec /fixboot
И после этого перезагружаешь компьютер и всё должно работать. Если будут какие то вопросы можешь написать мне в лс, постараюсь
for var x:=-3 to 5 do
writeln((sqr(x)-2*x-8)*cos(x));
end.
(Pascal ABC)