Разбираешься в компьютерах и играх, но не разбираешься в программирование. Я могу сделать вывод, что ты играл на протяжении 6 лет в игры и собирал себе компьютер для игр
Думаю ты не разбираешься во внутренностях компьютера.
Экзамены перенесли на август, мои тебе советы:
Готовься к ЕГЭ
Смотри видео уроки по профильной математике ЕГЭ от Павла Маслова (Ютуб)
Физику смотри также на Ютубе (Пенкин)
Также могу тебе посоветовать решать каждый день по 15 вариаций заданий, которые ты например выучил решения первого задания матана, решай их как можно больше)
Сдай ЕГЭ
Без него ничего не выйдет
1 Задание
Вводим переменные x и y.
Переменная k -количество равно нулю и i равно единице.
repeat
k:=k+1;
i:=i+2;
until i>=(x+y)
2 Задание
Program SpecialHappyTickets;
var
i, j, k, l, m, n, s: integer;
begin
s := 0;
for i := 0 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
for l := 0 to 9 do
for m := 0 to 9 do
for n := 0 to 9 do
if (i + j + k) = (l + m + n) then
if i + j + k = 13 then s := s + 1;
Writeln(s)
end.
program SpecialHappyTickets;
var
i, j, k, l, m, n, s: integer;
begin
s := 0;
for i := 0 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
for l := 0 to 9 do
for m := 0 to 9 do
for n := 0 to 9 do
if (i + j + k) = (l + m + n) then
if i + j + k = 13 then s := s + 1;
Writeln(s)
end.
Результат выполнения программы:
5625
3 Задание
var a,i:integer; b:boolean;
begin
a:=1;
repeat
b:=true;
for i:=2 to 6 do
b:=b and (a mod i = (i-1));
if not b then a:=a+1;
until b;
writeln('a = ',a);
end.
Результат:
a = 59
4 Задание
Program summa;
var a,x:integer;
i,s:integer;
begin
writeln('введите целое число');
readln( a );
x:=a;
s:=0;
while ( x<>0 ) do begin s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
end.
5 Задание
1. Количество нулей в конце числа равно количеству десяток в этом числе. Поскольку число 10 состоит из двух простых множителей: 2 и 5, то в конце числа будет столько же нулей, сколько пятерок в числе (т. к. двоек в 100! намного больше).
2. Найдем число пятерок в 100! Среди чисел от 1 до 100:
1) 5^3 - нет;
2) 5^2 - 25; 50; 75 и 100 - 4 числа;
3) кратных 5: 100/5 = 20 чисел.
6 Задание
const n=8;
var a:array[1..n] of integer;
i,z:integer;
begin
z:=1;
for i:=1 to n do
begin
a[i]:=z*(2*i-1);
write(a[i],' ');
z:=-z;
end;
end.
7 Задание
var i,n:integer;
begin
write ('количество раз');
readln(n);
for i:=1 to n do
write(0);
end.
(см. объяснение)
Объяснение:
На языке программирования PascalABC.NET код будет выглядеть так:
##
power(ReadInteger,ReadInteger).Println;
Обратите внимание, здесь не привычных begin и end, так как в них нет необходимости.
Задание выполнено!