int main(void) {const int n=10; int ar[n],i; i=0; while(i<n) {scanf("%d",&ar[i]); i++;} i=0; while(i<n) {if(ar[i]%2==0)printf("%d ",ar[i]); i++;} return 0; }
//PascalABC.NET 3.2 сборка 1318 Const n=10;
Var ar:array[1..n] of integer; i:integer; begin i:=1; while(i<=n) do begin readln(ar[i]); i:=i+1; end; i:=1; while(i<=n) do begin if ar[i] mod 2=0 then write(ar[i],' '); i:=i+1; end; end.
Пример ввода: 1 2 3 4 5 6 7 8 9 0 Пример вывода: 2 4 6 8 0
Высказывании (Y+1 > X) ∧ (Y+X <0) ∧ (X>1) истинно, если истинен каждый из трех предикатов. 1) X = 0,5; Y = -1,1 Y+1 > X; -1.1+1 > 0.5; -0.1 > 0.5 ложно и данный набор значений не подходит. 2) X = 1,1; Y = -4 Y+1 > X; -4+1 > 1.1; -3 > 1 ложно и данный набор значений не подходит. 3) X = -1; Y = -4 Y+1 > X; -4+1 > -1; -3 > -1 ложно и данный набор значений не подходит. 4) X = -0,1; Y = -1,1 Y+1 > X; -1.1+1 > -0.1; 0-.1 > -0.1 ложно и данный набор значений не подходит. ответ: все четыре варианта не подходят.
#include <stdio.h>
int main(void)
{const int n=10;
int ar[n],i;
i=0;
while(i<n)
{scanf("%d",&ar[i]);
i++;}
i=0;
while(i<n)
{if(ar[i]%2==0)printf("%d ",ar[i]);
i++;}
return 0;
}
//PascalABC.NET 3.2 сборка 1318
Const
n=10;
Var
ar:array[1..n] of integer;
i:integer;
begin
i:=1;
while(i<=n) do
begin
readln(ar[i]);
i:=i+1;
end;
i:=1;
while(i<=n) do
begin
if ar[i] mod 2=0 then write(ar[i],' ');
i:=i+1;
end;
end.
Пример ввода:
1
2
3
4
5
6
7
8
9
0
Пример вывода:
2 4 6 8 0