Информатика буду за . по информатике с сайта acmp три толстяка (время: 1 сек. память: 16 мб сложность: 7%) три толстяка решили поспорить: кто из них самый тяжелый. после взвешивания оказалось, что их масса соответственно m1, m2 и m3 килограмм. считается, что масса толстяка должна быть не менее 94 и не более 727 килограмм. определить массу самого тяжелого из них, либо выяснить, что была допущена ошибка при взвешивании. входные данные входной файл input.txt содержит три целых числа m1, m2 и m3, разделенные пробелом. все числа целые и не превосходят 10 000 по абсолютной величине. выходные данные в выходной файл output.txt выведите массу самого тяжелого толстяка в случае корректного взвешивания, либо слово «error» в противном случае. с сайта acmp , пишет ошибка (на 4 тесте) .что здесь не так? подскажите . pascal(delphi program tolstiki; {$apptype console} uses sysutils; var a, b, c: integer; begin read(a, b, c); if (a< 94)or (a> 727)or(b< 94)or (b> 727)or (c< 94)or (c> 727) then writeln ('error') else if (a> b)and(a> c) then writeln(a) else if (b> a)and(b> c) then writeln(b) else if (c> b)and(c> a) then writeln(c); readln; readln; { todo -ouser -cconsole main : insert code here } end.
Ответы
Во первых условие на вес желательно если не три толстяка а 1000 студентов завести массив их веса а потом с пузырьчатой сортировки только сделать прохождение по массиву одинажды. в итоге в последнюю я чейку попадает самый большой вес и он выдается на экран например был массив [99,167,700,354] а стал массив [99,167,354,700] в итоге 700 самый большой вес
Var n, a, pos, neg, null, i: integer;
begin
pos := 0;
neg := 0;
null := 0;
writeln('Введите N:');
readln(n);
writeln('Введите N целых чисел:');
for i := 1 to n do
begin
read(a);
if(a < 0) then neg := neg + 1;
if(a > 0) then pos := pos + 1;
if(a = 0) then null := null + 1;
end;
writeln('Положительных чисел: ', pos);
writeln('Отрицательных чисел: ', neg);
writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3
begin
pos := 0;
neg := 0;
null := 0;
writeln('Введите N:');
readln(n);
writeln('Введите N целых чисел:');
for i := 1 to n do
begin
read(a);
if(a < 0) then neg := neg + 1;
if(a > 0) then pos := pos + 1;
if(a = 0) then null := null + 1;
end;
writeln('Положительных чисел: ', pos);
writeln('Отрицательных чисел: ', neg);
writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3
var
number, N, npol, notr, n0, i: integer; {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}
begin
writeln('Введите N');
readln(N);
for i:= 1 to N do
begin
writeln('Введите целое число');
readln(number);
if number < 0 then notr:= notr + 1;
if number > 0 then npol:= npol + 1;
if number = 0 then n0:= n0 + 1;
end;
writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');
end.
А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Множества элементов A B C представлены с кругов Эйлера
Автор: nsmmkrtchyan
Графичесуое изображение памятника клавиатуре в екатеринбурге.. ☺
Автор: nikitavertiev98400
Сколько есть типов списков в текстовых документах
Автор: Стуканова УЧРЕЖДЕНИЕ1877
Cколько байтов в компьютерной памяти займёт слово «волос»?
Автор: nalich8524
