2) на яве
import java.util.Scanner;
public class Main {
<span> public static void main(String[] args) {</span><span>
Scanner scn = new Scanner(System.in);</span><span>
int[] a = new int[3];</span><span>
int k = 0, m = 0;</span><span>
for (int i = 0; i < 3; i++)</span><span> {</span><span>
a[i] = scn.nextInt();</span><span>
k = k + a[i];</span><span>
m++;</span><span> }</span><span>
System.out.println(k / m);</span><span> }</span>}
<span>паскаль
var a: array [1..3] of integer;
i,m,k:integer;
begin
m := 0;
for i := 1 to 3 do
begin
readln(a[i]);
k := k + a[i];
m := m + 1;
end;
write(k / m);
<span>end.</span></span>
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=a.Where(x->(x>0) and x.IsEven);
if b.Count=0 then Writeln('Нет четных положительных элементов')
else Writeln('Min=',b.Min,', max=',b.Max)
end.
<u><em>Тестовое решение</em></u>
n= 17
-11 15 46 -69 27 -26 68 -48 -2 9 17 7 -86 75 -58 -45 -52
Min=46, max=68
Всё просто:
В двоичной системе числа записываются только единицей и нулём, значит в ней не может существовать
В восьмеричной от 0 до 7, значит в ней оно может быть записано
В десятеричной от 0 до 9, значит в ней тоже может
В шестнадцатиричной 0-9 и ABCDF (10-15), значит в ней тоже может
Ответ - основания 8, 10, 16
Алгоритмы - это проще, чем кажется. Нужно просто выполнять действия в строгом порядке.
i=1 S=0
Если i<=5 то
S = s+i*i
i = i+1
Иначе(если условие если не верно):
Выход из программы(стрелочка никуда не ведёт)
Получается так:
i=1 s =0
Если 1<=5 --> верно тогда
s = 0 +1*1 = 1
i =1+1 = 2
--------------------------------------------
Если 2<=5 --> верно тогда
s = 1 +2*2 = 5
i =2+1 = 3
--------------------------------------------
Если 3<=5 --> верно тогда
s = 5 +3*3 = 5+9 = 14
i =4
--------------------------------------------
Если 4<=5 --> верно тогда
s = 14 +4*4 = 14+16 = 30
i =5
--------------------------------------------
Если 5<=5 --> верно тогда
s = 30 +5*5 = 30+25 = 55
i =6
--------------------------------------------
Если 6<=5 --> не верно тогда
Выход из программы
Ответ: S = 55
//PascalABC.Net 3.2
begin
var n:=readinteger('Число апельсинов: ')*150;
var m:=readinteger('Число яблок: ')*100;
if m=n then write('Что угодно') else
if m>n then write('Лучше взять яблоки') else write('Лучше взять апельсины');
end.