A:=20; //a=20
b:=3; //b=3
b:=a div b; { a div b, это целая часть от деления А на B, есть от деления 20 на 3
20 / 3 = 6 (2), 20 div 3 = 6(т.к. 18 / 6 = 3). b = 3}
c:=a mod (b+1); { A mod B, это остаток от деления A на B, 20 mod (3+1) = 20 mod 4 = 0 (т.к. 20 нацело делится на 4, целая часть от деления = 5) }
C = 0
a:=28; // a=28
b:=7; // b=7
b:= a mod b; { 28 mod 7 = 0, т.к 28 без остатка делится на 7, 28 div 7 = 4 (7*4=28) b=0}
c:=a div (b+1); // a div (b+1) = 28 div 1 = 28
C = 28
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.
Var p1, p2, p3, p4, p5:integer;
uses crt;
begin
writeln('Введите цену 1 товара:');
readln(p1);
writeln('Введите цену 2 товара:');
readln(p2);
writeln('Введите цену 3 товара:');
readln(p3);
writeln('Введите цену 4 товара:');
readln(p4);
writeln('Введите цену 5 товара:');
readln(p5);
writeln('Цена вашей покупки составляет ',p1+p2+p3+p4+p5);
end.
P.S. Надеюсь на Лучший ответ.
Т.к. Гарри жил в мире маглов он мог бы использовать любое вычислительное устройство безотносительно его магических способностей. Следуя ходу серии книг я бы на его месте приобрела портативные пыле,ударо,взрывозащищённые устройства класса защиты не ниже IP95, включающие в себя автономные источники питания на делящихся элементах в виду высочайшей степени автономности. Так же я бы предпочла корпус из полиамидовых смол на титановом армировании, с напылёнными диэлектриками слоем не меньше 50 + заполнение сот углеродом или свинцовыми сплавами для избежания лучевого поражения кожи.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.MatchValues('[Нн]е').Count.Println
end.