Program zz;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a mod 2=0 then writeln(a,' -четное число')
else writeln(a,' -нечетное число');
<span>end.</span>
<span>1)
#include <stdio.h>
int main() {
int a = -1;
while(a != 0)
scanf("%d", &a);
}
2)
<span>#include <stdio.h>
#include <math.h>
int main() {
int a;
scanf("%d", &a);
int prime = 1;
for(int i = 2; i <= sqrt(a)+1; i++)
if(a%i == 0) {
prime = 0;
break;
} if((prime == 0 && a != 2) || a == 1) printf("NO\n");
else printf("YES\n");
}
</span>3)
#include <stdio.h>
int main() {
int a[5];
for(int i = 0; i < 5; i++)
scanf("%d", &a[i]);
for(int i = 0; i < 5; i++)
printf("%d ", a[i]);
printf("\n");
}</span>
const n = 10;
var
a: array[1..n] of integer;
i, max: integer;
begin
for i := 1 to n do begin
a[i] := random(100);
write(a[i], ' ');
if(a[i] > max) then max := a[i];
end;
writeln;
writeln('Наибольший эл. массива: ', max);
end.
14, так как d:=6-2=4.
цикл выполняется 4 раза, значит к 4+1+2+3+4=14
X<>10;
(x>0) and (y>0);
x>0;
(x>=0) and (x<=4);
(x>-5) and (x<=5);
x>=0;
x mod 2 = 0;
x mod 2 = 1;
x mod 3 = 0;
(x mod 2 = 0 ) and (x mod 3 =0);
x mod 5 <> 0;