// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:= readlnInteger('n =');
var a:= ReadlnString.ToIntegers;
SetLength(a, n);
var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count;
Writeln(k);
end.
Сначала раскрась все кружки, квадраты, треугольники как хочешь. Потом в этой таблице нарисуй мешок и в нём синих кружков столько, сколько их на дереве. И зелёных кружков столько, сколько их на дереве. И оранжевых так, и красных. Потом так с треугольниками и квадратами.
Var a,b:array[1..10] of integer;i,j,min,min2,sum:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10);writeln(a[i]);end;min:= a[1]; for i:= 2 to 10 dobeginif (a[i] < min) then min:= a[i]; end;writeln('минимальный элемент 1 массива ',min);writeln('2 msssiv');for j:=1 to 10 dobeginb[j]:=random(10);writeln(b[j]);end;min2:=b[1];for j:=2 to 10 dobeginif ( b[j] < min2 ) then min2:= b[j]; end;writeln('минимальный элемент 2 массива',min2);sum:=min+min2;writeln('summa min:',sum);end.
2 мин=120 сек.
256000*120= 30 720 000 бит. -весь объем в битах
30 720 000/8=3 840 000 Байт. - весь объем в байтах.
3 840 000/1024=3750 Кб
Ответ:3750КБ
Ответ:
если ты имеешь ввиду рандомно , то вот :
#include <iostream>
#include <time.h>
#include <stdlib.h>
using namespace std ;
int main (){
setlocale(LC_ALL , "Russian");
srand(time(NULL));
int a ;
a = rand()%10;
cout << "Дежурным будет "<<a<< " ученик " ;
return 0 ;
}
Объяснение:
