Тапсырмалар
1. Сәйкестігін тауып, сызықтармен көрсет
Спрайт
| Кейіпкер бірнеше секунд
бойы «ойла» тұрады.
генето се
- есе күнд
Нысанның қозғалысы,
өзгерісі
Ашманя
Кейіпкер, эльф.
дуна мен (2 секунд
Жоба іске қосылады
Кейіпкер бірнеше секунд/
бойы «сөйлеп» оры1
2. Екі скршпні салыстырыңыз. Ұқсастығы мен айырмашылығы неде екенін
жазыныз.
кашелнату по
натя 10 па мова
вки к р , oron synch
nam 10 ao
сен риуть в неравление 90
1-сурет
2-сурет
А) Ұқсастығы
Б) Айырмашылыт
Предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. Для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. Для дробной части незначащие нули - последние и мы будем их искать в последней тетраде.
Первая тетрада - представление 1(16)=0001(2). Левые три нуля незначащие и их удаляем, остается 1. Последняя тетрада - представление Е(16)=1110(2). Тут один незначащий ноль - правый, остается 111.. Остальные тетрады переписываем без изменения.
12АС,6Е(16)=1 0010 1010 1100 , 0110 111 (2)
Считаем количество нулей в записи: 9. Это и есть ответ.
Комментарии Отметить нарушение
program raf105;
var
sum: integer;
begin
for var i:=1 to 100 do
if i mod 2 = 0 then sum:= sum + i;
writeln('Вывод: ',sum);
end.
2.program raf105;
var
glas: string:= 'аяоёуюыиэе';
input: string;
glasCount: integer;
begin
write('Введите слово: ');
readln(input);
lowerCase(input);
for var i:= 1 to length(input) do
for var j:= 1 to length(glas) do
if input[i] = glas[j] then inc(glasCount);
writeln('Гласных букв: ',glasCount);
end.
3.program raf105;
var
count: integer;
begin
for var i:=1 to 500 do
if i mod 2 <> 0 then inc(count);
writeln('Вывод: ',count);
end.
PascalABC