Информатика, опубликовано 09.01.2019 16:01
Помогите срочно с 1 и 3.
Очень срочно!!!!!!
Ответы
Ответ оставил: Гость
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Max)
end.
Пример
36 102 52 19 212 42 97 72 64 0
212
Задание 3. В очень странной постановке. Вводятся НАТУРАЛЬНЫЕ числа и надо найти сумму ПОЛОЖИТЕЛЬНЫХ. Но ведь ВСЕ натуральные числа положительные...
На всякий случай условие фильтрации положительных поставим. Если не надо - из текста программы надо исключить .Where(x->x>0)
begin
Writeln(ReadSeqInteger(ReadInteger).Where(x->x>0).Sum)
end.
Пример
10
36 102 52 19 212 42 97 72 64 10
706
Ответ оставил: Гость
162 mb/3*60sec = x/360162/3/60= 0,9
360 * 0,9 = 400
Как то так
Ответ оставил: Гость
ABCF = 12 + 2 + 4 = 18ABCDEF =12 + 2 + 6 + 4 + 12 = 36
ACF = 8 + 4 = 12 ← кратчайший
ACDEF = 8 + 6 + 4 + 12 = 30
AEF = 2 + 12 = 14
AEDCF = 2 + 4 + 6 + 4 = 16
ADEF = 4 + 4 + 12 = 20
ADCF = 4 + 6 + 4 = 14
Ответ оставил: Гость
Var a: array[1..4] of integer;i,j: integer;
begin
for i:=1 to 4 do read(a[i]);
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]<a[j] then swap(a[i],a[j]);
writeln(a[1]*a[2]+a[3]*a[4]);
end.
11 6 5 19
239
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
