Выбор будущей профессии — это очень важный шаг в жизни каждого человека. Некоторые выпускники школ долго сомневаются, так как им трудно определиться, другие же наоборот принимают твердое решение раньше. Для того чтобы стать тем, кем хочешь нужно сначала выучиться и получить образование. Если будущая профессия очень нравиться тогда и учиться будет интересно и не трудно.
Что касается меня, то я хочу стать программистом. Эта профессия привлекла меня, когда я учился в младших классах. Тогда мы начали изучать информатику, которая стала моим любимым предметом. Я всегда очень внимательно слушаю учительницу. Мне интересны абсолютно все темы по этому предмету, поэтому я часто задаю много дополнительных вопросов на уроках. Дома у меня есть много разных книг: о строении компьютера, о работе с разными программами, об основах программирования, о поломках, о вирусах и другие. Кроме того, я обычно читаю дополнительную литературу по информатике в нашей школьной библиотеке или ищу интересующую меня информацию в интернете.
8. cos(x) - ((abs(x-2))/(sqrt(x)+3))+sqr(1+x)
9. а = 10 b = 10 c = 20
Объяснение:
9.
а = 25 b = 16
пока условие (а + b) > 20 истинно (да) выполнить
Действия в цикле:
1) а = а - 5
2) b = b - 2
c = а + b
а = 25 b = 16
(25 + 16) > 20 41 > 20 (да)
Действия в цикле:
1) а = 25 - 5 = 20
2) b = 16 - 2 = 14
а = 20 b = 14
(20 + 14) > 20 34 > 20 (да)
Действия в цикле:
1) а = 20 - 5 = 15
2) b = 14 - 2 = 12
а = 15 b = 12
(15 + 12) > 20 27 > 20 (да)
Действия в цикле:
1) а = 15 - 5 = 10
2) b = 12 - 2 = 10
а = 10 b = 10
(10 + 10) > 20 20 > 20 (нет)
Цикл не выполняется
а = 10 b = 10
c = а + b = 10 + 10 = 20
а = 10 b = 10 c = 20
Program Pr1;
uses crt;
var stroka,stroka1:string;
i,b,c,a:integer;
mas:array['A'..'я'] of integer;
r:char;
Begin
clrscr;
readln(stroka);
readln(stroka1);
b:=length(stroka);
c:=length(stroka1);
if b>c then begin
for i:=1 to c do
for a:=1 to b do if stroka[a]=stroka1[i] then mas[stroka1[i]]:=mas[stroka1[i]]+1;
end
else begin
for i:=1 to b do
for a:=1 to c do if stroka1[a]=stroka[i] then mas[stroka[i]]:=mas[stroka[i]]+1;
end;
for r:='A' to 'я' do if mas[r]>0 then writeln(r,' ',mas[r]);
end.