Ответ:
Ну, вот на Pascal написал. Вроде так...
var
Sum, I : integer;
Sum := 0;
I := 45;
While I >= M do
begin
Sum := Sum + I;
I := I - 3;
end;
Writeln(Sum);
end.
Объяснение:
Function IsPrime(n:longint):boolean;
var
found:boolean;
p:longint;
begin
if n<4 then IsPrime:=True
else begin
found:=(n mod 2=0);
p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
IsPrime:=not found
end
end;
var
a,b,i:longint;
begin
Write('Введите начало и конец интервала: ');
Readln(a,b);
for i:=a to b do
if IsPrime(i) then Write(i,' ');
Writeln
end.
Var
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
Переведём оба числа в 10-чную систему счисления
1110₂=1*2³+1*2²+1*2¹+0*2°=8+4+2+0=14 девочек
18₁₆=1*16¹+8*16°=16+8=24 всего человек
24-14=10 мальчиков
Ответ: 10 мальчиков
var a,b,c: integer;
begin
writeln('Введите числа А, В, С');
readln(a,b,c);
if (c mod 2=1) and (c>0) then writeln(a+b) else writeln(b*c);
end.
Язык программирования Pascal
