Определите значение переменной а после выполнения алгоритма:

а := 8;

b := 3; b := a/2b;

a := 2а + 3b.

2. Определите значение переменной b после выполнения алгоритма:

а := 4;

b := 10;

а := b - a2;

b := 24/a4.

3. Определите значение переменной а после выполнения алгоритма:

а := 5;

b := 4;

b := 100 - ab;

a := b/16*a.

👇

Увидеть ответ

Ответ:

UoYFer

19.10.2020

а := 8;

b := 3;

b := a/2*b; // 8/2 * 3 = 4 * 3 = 12

a := 2*а + 3*b. // 2 * 8 + 3 * 12 = 16 + 36 = 52

а := 4;

b := 10;

а := b - a*2; // 10 - 4 * 2 = 10 - 8 = 2

b := 24/a*4. // 24/2 * 4 = 12 * 4 = 48

а := 5;

b := 4;

b := 100 - a*b; // 100 - 5 * 4 = 100 - 20 = 80

a := b/16*a. // 80/16 * 5 = 5 * 5 = 25

4,5(68 оценок)

Открыть все ответы

Ответ:

Иa411

19.10.2020

1. Переведите в байты:
560 бит = 560:8 = 70 байтов
3024 бита = 3024:8 =378 байтов
2. Переведите в биты:
540 байтов = 540*8 = 4320 бит
2,5 Кб = 2,5*1024*8= 2560*8 = 20480 бит
2 Гб = 2*1024*1024*1024*8 = 171798184 бита
3. Переведите в килобайты:
1024000 бит = (1024000:8):1024 = 125 Кб
9240 байтов = 9240:1024 ≈ 9,02 Кб
4. Заполните пропуски числами:
а) 3, 5 Кбайт = 3584 байт = 28672 бит
б) 3, 5 Гбайт = 3584 Мбайт = 3670016 Кбайт
Задача 1
$N=256 \\ N=2^i \\ i=8 \\ K=39 \\ I=K*i=312$
ответ: 312 бит
Задача 2
$K=v*t=250*40=10000 \\ N=64 \\ N=2^i \\ i=6 \\ I=K*i=10000*6=60000(bit)=7500(bait)=7,3 (Kbait)$
ответ: 7,3 Кбайт
Задача 3
$K_1=60*40=2400 \\ i=8(bit)=1(bait) \\ I=1280(Kbait)=1310720(bait) \\ I=K*i \\ 1310720=K_1*K_2*i=2400*K_2 \\ K_2=546,13=547$
ответ: 547
Задача 4
$N=2^i \\ 2^i=256 \\ i=8(bit)=1(bait) \\ I=1/32(Mbait)=1024/32(Kbait)=32(Kbait)=32*8(bait)=32768(bait) \\ K=I/i=32768/1=32768$
ответ: 32768

4,7(18 оценок)

Ответ:

lizayka2001

19.10.2020

1. Программа, создающая файл

var
f:file of integer;
i,k:integer;
begin
Randomize;
Assign(f,'in.dat'); Rewrite(f);
for i:=1 to 20 do begin
    k:=Random(99)+1;
    Write(f,k)
    end;
Close(f)
end.

Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13

2. Основная программа

uses Crt;
const
nn=100;
var
i,j,k,n:integer;
fin,fout:file of integer;
a:array[1..nn] of integer;
dub:boolean;
begin
ClrScr;
Assign(fin,'in.dat'); Reset(fin);
Read(fin,k);
if not eof(fin) then begin
    n:=1; Write(k,' '); a[n]:=k
    end
else n:=0;
while (not eof(fin)) and (n<=nn) do begin
    Read(fin,k); Write(k,' ');
    j:=1; dub:=false;
    while (j<=n) and (not dub) do begin
      dub:=(a[j]=k); Inc(j);
      end;
    if not dub then begin Inc(n); a[n]:=k; Inc(j) end
    end;
Writeln;
Close(fin);
for i:=1 to n do Write(a[i],' ');
Writeln; Writeln('n=',n);
Assign(fout,'out.dat'); Rewrite(fout);
Write(fout,n); Close(fout);
ReadKey
end.

Тестовое решение:
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18

В качестве бонуса - решение этой же задачи в современной системе программирования PascalABC.NET.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var fin,fout:file of integer;
Reset(fin,'in.dat');
var k:integer;
var a:=new integer[fin.FileSize];
var n:=0;
while not eof(fin) do begin
    Read(fin,k); a[n]:=k; Inc(n)
    end;
Close(fin);
a.Println;
var b:=a.ToHashSet;
b.Println; Writeln('n=',b.Count)
end.

Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18

И вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? Чтобы показать, "как все это сложно"?

4,7(67 оценок)

Это интересно:

Дом-и-сад

27.05.2023

Основы электротехники: Как разрядить конденсатор...

Здоровье

01.09.2021

Как отвлечь себя от голода: полезные советы...

Кулинария-и-гостеприимство

23.10.2021

Как приготовить баннок: легкий и вкусный рецепт...

Кулинария-и-гостеприимство