Var S:real;
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.
Пример работы программы:
N = 5
1 24 74 54 36
S = 78
В логике с помощью кругов Эйлера.
Эйлера-венна
1)<span>1000 байт</span> 8000 бит
2)7000 байт 70 000 бит
3)15000 байт 150 000 бит
Одним битом можно закодировать два цвета, обычно это черный и белый. Черный 0 - белый 1. У нас четыре цвета. Берем два бита и кодируем:
00 - черный
10 - темносерый
11 - белый
01- светлосерый
Итого двух бит достаточно
Номера минимума и максимума не получается сделать паскаль выделывается чо то
var a: array[1..5] of integer; i,min,max,summa,nmin,nmax:integer;begin
for i:= 1 to 5 do readln(a[i]);
min:=a[1];for i:= 2 to 5 dobeginif a[i]<a[1] then begin min:=a[i];end;
end;
max:=a[1];for i:= 2 to 5 dobeginif a[i]>a[1] then max:=a[i];end;summa:=min+max;
writeln('min=',min);writeln('min+max=',summa);writeln('nomer min=',nmin);writeln('nomer mmax=',nmax);
end.<span>
</span>