Надоо)) )) сроочноо прямо ) ) написать программу которая выводит на экран квадрат всех четных чисел из диапазона от а до б

var a,b,i,k: integer; beginreadln (a,b); for i: =a to b doif (i mod 2=0) thenbegink: =sqr(i); writeln (i); end; end.

Некоторые условия скорее, главное условие - это чётность игр. поскольку в партии играет по двое, то сумма чисел должна быть чётной. код

#include < iostream>

using namespace std;

int main()

{

    unsigned int x, y, z;

    cin > > x > > y > > z;

    if((x + y + z) % 2 == 0){

        if((3*z + 2 > = x + y) || (3 * x + 2 > = y + z) || (3 * y + 2 > = x + z)){

            cout < < "yes";

            return 0;

        }

    }

    else{

        cout < < "no";

        return 0;

    }

    return 0;

}

проверка

2 2 2                                                                                                

yes

3 1 2                                                                                                

yes

1 1 1                                                                                                

no

язык программирования любой?

пишу на Python:

s = str(input())

s = sorted(s[:len(s)-1].split(', '))

for word in s:

print(word, ' ', end='')

Pascal:

var s, copy_s, word_s:string;

i, n, count:integer;

a:array of string ;

begin

count:=0;

write('Введите перечисление слов через запятую без пробелов, в конце поставьте точку: ');

readln(s);

copy_s:= s;

while pos(',', copy_s) > 0 do begin

n:= pos(',', copy_s);

delete(copy_s, n, 1);

count:=count+1;

end;

count:= count + 1;

SetLength(a, count);

for i:=1 to count-1 do begin

n:= pos(',', s);

word_s:= copy(s, 1, n-1);

delete(s, 1, n);

a[i]:=word_s;

end;

word_s:= copy(s, 1, length(s)-1);

a[count]:= word_s;

for i:=1 to count-1 do

if a[i] > a[i+1] then begin

word_s:=a[i];

a[i]:=a[i+1];

a[i+1]:=word_s;

end;

for i:=1 to count do

writeln(a[i]);

end.