Смотреть фото, удачи тебе))
var a:array[1..100] of integer;
i:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]); // Заполняем массив
if i mod 3=0 then // Проверка на кратность номера элемента 3ем
write(a[i], ' ');
end;
end.
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
if (x mod 2 = 0) then writeln('true')
else writeln ('false');
end.
(в программе 2 таких чисел не существует)
Program n_2;
var x, y:integer;
begin
readln(x);
y:=x*x;
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
x:=x*x*x;
if (x=y) then writeln('true')
else writeln ('false');
end.
Program n_3;
var a, b, c:integer;
begin
read(a, b, c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln ('false');
end.
3) a)Z2:AH3; б) N2:R2
Y5:AA6 U2:U4
AF5. Q4:S4.
4)C3*$B$1
D1*$B$1
E4*$B$1
F2*$B$1
5)D5)35
E2)22
#include <stdio.h>
int main()
{<span>
int s=0;</span><span>
for (int i=-5;i<=10;i+=3)</span><span>
s+=i;</span><span>
printf("%d", s);</span><span>
return 0;
</span><span>}</span>