Яблочкиограничение времени 2 секунды ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txtпосле очередного успеха на олимпиаде никита и кирилл решили открыть собственный бизнес. бизнес не простой, а золотой — продажа яблок сорта golden.миллионер семён решил порадовать любимую мамочку — купить ей вкусных яблок. он пришёл на импровизированный рынок ник, где работали никита и кирилл. семён решил купить все яблоки, благо денег у него хватает.продав все яблоки, никита и кирилл стали считать прибыль. известно, что никита продал a яблок по m тугриков, а кирилл продал b яблок по n тугриков. к сожалению, с у плохо, поэтому они хотят узнать у вас, кто же получил большую прибыль.формат вводаформат выводавыведите единственное целое число — заработок продавца, получившего большую прибыль.пример ввод вывод 8 2 2 3 16

👇

Ответ:

Саша12811

11.12.2020

Для начала создайте файл типа блокнот (расширение .txt) под названием input. Файл output создастся автоматически. Program apple; Uses crt; Var a, b, m, n: integer; f1, f2: text; Begin Assign (f1, 'input.txt'); Assign (f2, 'output.txt'); Reset (f1); Rewrite (f2); Readln (a, m, b, n); If a*m>b*n then Writeln (f2, a*m) Else writeln (f2, b*n); Close (f1); Close (f2); End.

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

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

Ответ:

Serlous

11.12.2020

1. Современное, короткое и быстрое решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(16,-20,80); a.Println;
Writeln('S=',a.Where((x,i)->i.IsOdd).Sum)
end.

Пример
61 64 70 22 76 22 18 44 36 53 29 -9 42 -19 66 34
S=211

2. А вот так все еще учат в большинстве школ (стиль образца 70-80х годов века)

const
n=16;
var
i,s:integer;
a:array[1..n] of integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
    a[i]:=Random(101)-20;
    Write(a[i],' ');
    if i mod 2=0 then s:=s+a[i]
    end;
Writeln;
Writeln('S=',s)
end.

4,6(24 оценок)

Ответ:

dmitrocreativ

11.12.2020

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var a:=ArrRandom(10,50,100); a.Println(', ');
var s:=0;
for var i:=0 to 9 do s+=a[i];
Writeln('s=',s)
end.

Тестовое решение:
64, 59, 67, 54, 90, 51, 94, 70, 65, 82
s=696

"Школьный" вариант:

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
a:array[1..10] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 10 do begin
    a[i]:=Random(51)+50;
    Write(a[i],' ');
    s:=s+a[i]
    end;
Writeln;
Writeln('s=',s)
end.

Тестовое решение:
82 88 94 65 73 94 86 56 91 60
s=789

И, чтобы не быть голословным, современный вариант:

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
Writeln('s=',ArrRandom(10,50,100).Println.Sum)
end.

Тестовое решение:
94 90 70 85 62 58 94 73 67 97
s=790

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

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

Путешествия

09.03.2023

Морская болезнь: как научить себя чувствовать себя комфортно на корабле...

Здоровье

08.01.2021

Витамин В12: как его правильно принимать...

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

04.04.2023

Как сложить коробку для завтраков: подробная инструкция...

Дом-и-сад