Для первой задачи ответ 111, для второй 110
#include <iostream>
int main(){ int a, max, num; std::cin>>num; while (num) { num--; std::cin>>a; if ((a%5 == 0)&&(a%7 != 0)&&(a > max)) max = a; } std::cout<<a;}
A:=sqr(4)
b:=abs(-11)
c:=a
sqr(x) - возводит x в квадрат
abs(x) - модуль из x
:= - знак присваивания
//PascalABC.NET 3.1 сборка 1200
const
n = 1000;
begin
var primes := new List<integer>();
for var i := 2 to n do
begin
var f := true;
foreach var prime in primes do
if i mod prime = 0 then begin
f := false;
break;
end;
if f then primes.Add(i);
end;
foreach var prime in primes do
write(prime, ' ');
writeln;
writeln('Время вычисления: ', Milliseconds / 1000);
end.
const n=10;
var a:array [1..n] of integer;
i,max,min,imax,imin:integer;
begin
min:=100;
max:=1;
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(100)+1;
if a[i] > max then
begin
max:=a[i];
imax:=i
end;
if a[i] < min then
begin
min:=a[i];
imin:=i
end;
write(a[i]:3,' ')
end;
writeln;
a[imax]:=min;
a[imin]:=max;
write('Полученный массив: ');
for i:=1 to n do write(a[i]:3,' ')
end.