Var a,b,c: integer; begin; readln(a); readln(b); readln(c); if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) then writeln('ура') else if ((a mod 2=0) and (b mod 2=0)) or ((a mod 2=0) and (c mod 2=0)) or ((b mod 2=0) and (c mod 2=0)) then writeln('уже хорошо') else if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln('не все так плохо') else writeln('повезет в следующий раз'); end.
alfakurs
17.09.2021
Program z1; var a: array [1..100] of integer; i,min,n: integer; begin write('введите размерн массива - '); readln(n); randomize; for i: =1 to n do begin a[i]: =random(20)+1; write (a[i],' '); end; for i: =1 to n do if (a[i] mod 3 = 0) then min: =a[i]; for i: =1 to n do if ((a[i] mod 3 = 0)and (a[i]< min)) then min: =a[i]; writeln; writeln(min); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Как сделать так что бы текст двигался по окну. на языке программирование c#