Const n=20;
Var i, k:integer ;s:real ;
A:array [1..200]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
Write(' ') ;
a[i]:=random(41)+150;
S:=s+a[i];
Writeln(' ', a[i]) ;
End;
S:=s/n;
For i:=1 to N do begin
If(a[i] >s) then k:=k+1;
End;
Writeln ( ' ', k) ;
End.
Северно Ледовитый океан, озеро Байкал, река Нева (открой атлас и посматри).
Находим сколько бит нужно для кодировки 65356 цветов. нужно 16 бит. так как 2¹⁶=65536. 16*800*600=7680000 бит. и находим время
7680000 / 25600= 300 с
пусть введенный интервал будет
B и C,где B<C
var a,b,c,i:longint;
begin
read(b,c);
for i:=b to c do
if i mod a=0 then write(i);
end.
#include <iostream>
using namespace std;
int main()
{
int n;
cout << "Сколько Вам лет?";
cin >> n;
if(n % 10 == 1 && n != 11) {cout << "Вам " << n << " год"; return 0;}
if(n % 10 >= 2 && n % 10 <= 4) {cout << "Вам " << n << " года"; return 0;}
if(n % 10 == 0|| n == 11 || n % 10 >= 5 && n % 10 <= 9) {cout << "Вам " << n << " лет"; return 0;}
return 0;
}