Подсчитать сумму всех четных чисел от 300 до 400.(паскаль) вывести на экран все трехзначные числа,кратные

👇

Ответ:

alinarynkevich2007

03.10.2020

// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
    s:=s+a;
    a:=a+2;
    until a>400;
writeln('s = ', s)
end.

// Задание №2
var
a: integer;
begin
a:=100;
repeat
    if a mod 8 = 0 then write(a:4);
    a:=a+1;
    until a>999;
end.

4,4(90 оценок)

Ответ:

ььь55

03.10.2020

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Write(Range(300,400,2).Sum)
end.

Результат выполнения программы:
17850

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Range(104,999,8).Print
end.

Результат выполнения программы:
104 112 120 128 136 144 152 160 168 176 184 192 200 208 216 224 232 240 248 256 264 272 280 288 296 304 312 320 328 336 344 352 360 368 376 384 392 400 408 416 424 432 440 448 456 464 472 480 488 496 504 512 520 528 536 544 552 560 568 576 584 592 600 608 616 624 632 640 648 656 664 672 680 688 696 704 712 720 728 736 744 752 760 768 776 784 792 800 808 816 824 832 840 848 856 864 872 880 888 896 904 912 920 928 936 944 952 960 968 976 984 992

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

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

Ответ:

060609

03.10.2020

Оглавле́ние — указатель заголовков издания, отражающий рубрикацию произведения и ускоряющий поиск частей издания.

В оглавлении произведения, разбитого на части, разделы, подразделы, главы, подглавы, параграфы, подпараграфы, примечания и т. п., устанавливающие соподчиненность отдельных частей произведения, последовательно приводятся наименования частей, разделов, глав, параграфов в полном объёме, так, как они даны в тексте, и указываются страницы, на которых начинается рубрика. Рубрики последней ступени — подзаголовки, взятые в тексте рукописи в подбор, — в оглавлении могут не приводиться. Взаимоподчиненность частей произведения в оглавлении передают средствами полиграфического оформления: выделением в красную строку, шрифтами и набором рубрик с отступом от левого края полосы

Объяснение:

4,4(82 оценок)

Ответ:

tanyaxxx15

03.10.2020

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
F.Seek(0);
var e:integer;
Print('F:');
while not F.Eof do begin
    Read(F,e); Print(e);
    if e>0 then Write(G,e)
    end;
F.Seek(0);
while not F.Eof do begin
    Read(F,e);
    if e<0 then Write(G,e)
    end;
F.Seek(0);
while not F.Eof do begin
    Read(F,e);
    if e=0 then Write(G,e)
    end;
F.Close;
Writeln;
Print('G:');
G.Seek(0);
while not G.Eof do begin
    Read(G,e); Print(e)
    end;
G.Close
end.

Тестовое решение:
F: -14 15 -16 0 7 0 18 19 -12 -10 6 15 -19 -14 -15 -1 -6 -4 -20 12 10 4 3 16 -14 -20 3 10 -13 -16
G: 15 7 18 19 6 15 12 10 4 3 16 3 10 -14 -16 -12 -10 -19 -14 -15 -1 -6 -4 -20 -14 -20 -13 -16 0 0

Данное решение неоптимально по времени, поскольку файл читается трижды. Можно сделать иной вариант, читая данные за один проход и помещая в две вс структуры памяти отрицательные и нулевые элементы.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
var n:=F.FileSize;
var neg,zer:array of integer;
SetLength(neg,n); SetLength(zer,n);
F.Seek(0);
var e:integer;
var ineg:=0;
var izer:=0;
Print('F:');
while not F.Eof do begin
    Read(F,e); Print(e);
    if e>0 then Write(G,e)
    else
      if e<0 then begin neg[ineg]:=e; Inc(ineg) end
      else begin zer[izer]:=e; Inc(izer) end
    end;
F.Close;
Writeln;
SetLength(neg,ineg);
foreach e in neg do Write(G,e);
SetLength(zer,izer);
foreach e in zer do Write(G,e);
Print('G:');
G.Seek(0);
while not G.Eof do begin
    Read(G,e); Print(e)
    end;
G.Close
end.

Тестовое решение:
F: 7 5 -14 6 -11 -9 5 -1 5 -5 -7 -1 4 -20 17 -19 0 -3 0 6 20 1 -2 -18 9 20 0 -2 3 -13
G: 7 5 6 5 5 4 17 6 20 1 9 20 3 -14 -11 -9 -1 -5 -7 -1 -20 -19 -3 -2 -18 -2 -13 0 0 0

4,4(59 оценок)

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

Образование

06.01.2021

Клюква стоит 250 рублей за кг, а малина 200....

Образование

16.03.2023

Решить систему уравнений x2 + y2 + xy = 3...

Образование

05.08.2020

Решить систему уравнений x2 + xy +y2 = 13...

Образование