// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Сумма первых пяти минимальных ',a.Sorted.Take(5).Sum)
end.
<u><em>Тестовое решение</em></u>
n= 15
63 53 44 40 29 47 56 55 58 73 56 42 62 95 84
Сумма первых пяти минимальных 202
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
<span>
В начальной школе 4класса
у нас 3 мальчика </span><span>Петя, Ваня и Саша</span><span>
Петя перешел в тот класс, в котором в прошлом году учился Саша
Значит Петя учится не в 1 классе, а должен переити во 2 или 3 класс
Саша старше ПЕТИ
А Ваня учится в 1 классе , получается </span>через год закончит 2 класс и переидет в 3 класс* ( поидет тот класс, который в этом году закончит Петя)
Получается Петя учится в 3 классе, Саша в 4 классе
Плагин-это расширение или дополнение возможностей
Ответ:
var a,b,c,d:integer;
begin
writeln('введите число'); //запрос числа
readln(a);
d:=a; //это для красоты
while (a<>0) do begin //пока мы не дойдём до последней цифры в числе делать следующее
b:=a mod 10; //берём последнюю цифру числа
c:=c+b; //находим сумму цифр
a:=a div 10; //убираем из данного числа последнюю цифру
end;
writeln('сумма цифр числа ',d,' = ',c); // вывод результата
end.
Вроде вот)
