Сейчас вычисления совсем другие, не такие как раньше. Вычисляют погоду, ядерные реакции, движение планет. Но и задачи на компьютеры возлагают разные.Раньше не было персональных компьютеров. А сейчас они есть в довесок к супер компьютерам. Некогда раньше была принята стратегия популизировать ПК из военной сферы и области образования в область персонального использования. Поэтому сейчас пользоваться компьютером стало легче. Этому даже учат в школе. Все развивается. И растут области применения ПК.
Var
mas:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(41)-20;
write(mas[i],' ');
end;
end.
Ответ № 3 - 640 бит.
В указанной строке 40 символов (вместе с точкой).
40*2 байта = 80 байт.
1 байт = 8 бит.
80*8=640 бит.
Вообще единого способа нету, если у вас не получилось просто вывести значит у вас Виндовс, вобщем в этом и заковырка, ОС использует свою кодировку, а не привычную <span>utf-8. Это переделанный пример из интернета, сейчас подумаю над примерами попроще для реализации</span>
#include <iostream>
#include <io.h>
#include <fcntl.h>
int main()
{
_setmode(_fileno(stdout), _O_U16TEXT);
std::wcout << L"Testing unicode -- English -- Ελληνικά -- Español." <<
std::endl;
system("pause");
return 0;
}
Program exp;var mas:array [1..10] of integer; i:integer;begin for i:=1 to 10 do begin mas[i]:=Random(3); if (mas[i])=1 then Writeln(i) end;end.