Завдання 1. Дано 2 цілих числа, перевірити чи це різні числа. (Наприклад, 7 та 8 - різні, 5 та 5 - ні) 2. Відомі довжини двох відрізків, перевірити чи підійдуть вони для створення на їх основі квадрату. 3. Два числа вводяться з клавіатури визначити мінімальне з них. 4.* Два числа вводяться з клавіатури, визначити максимальне з них, передбачивши третю ситуацію за якої числа рівні 5.* За введеним значенням температури води визначити її агрегатний стан (твердий, рідкий, газоподібний) 6.* За відомим значенням шкільної оцінки визначити її рівень (початковий, середній, достатній, високий) Надіслати програмні файли Теоретичний матеріал Приклади наведені у матеріалі можна копіювати та перевіряти їх виконання у середовищі програмування Python! (Якщо виникають помилки, перевіряйте синтаксис, відступи, лапки вводяться англ. мовою) У більшості програм на певному кроці їх виконання потрібно вибирати той чи інший варіант подальших дій, тобто використовувати розгалуження. Умовою вибору того чи іншого варіанту є виконання деякої умови. Умова повинна приймати лише два значення true або false. Сама умова записується одразу після оператора if, а після неї через двокрапку записується команда, які необхідно виконати. Якщо команд декілька, то вони відокремлюються блоком, які мають однаковий відступ після оператора if. Відступ встановлюється клавішею Tab або пробілами. Якщо розгалуження завершилось, то наступні команди слід писати під оператором if. Наприклад, практичне використання скороченого розгалуження може виглядати так: s=10 if s>0: print("Дане число додатне") Якщо значення змінної а буде 0 або менше програма нічого не виведе. Повне розгалуження У випадку виконання іншої команди у разі хибності умови слід її писати після оператора else, не забуваючи також поставити двокрапку. Наприклад, b=-5 if b>0: print("Дане число додатне") else: print("Дане число недодатне")
Ответы
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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Построить трассировочную таблицу От
Автор: coffee2201
Як у середовищі лазарус малюють лінію сектор і ламану
Автор: polusik120796
В алгебре логики высказывания обозначаются буквами и называются
Автор: phiskill559
Чем отличается источник информации от приёмника?
Автор: triumfmodern
Как нарисовать ромашку с 16 лепестками в гейм лого?
Автор: bochkarevazh
Напишите подробно о кодировании информации при двух знаков.
Автор: samira57
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.
А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.