Paskal abc 1. Напишите программу, имитирующую калькулятор. На вход подаются 2 целых числа и арифметический знак (+, -, *, /). Вывод написать в развернутом виде. Например: Входные данные Выходные данные
5 4 + 5+4=9 2. Напишите, которая по введенному числу из промежутка 0..24, определяет время суток. Например:
Входные данные Выходные данные
14 день
3. Напишите программу, которая по введенной букве (первые 5 букв алфавита) выводит Название города. Например:
if M[a, 4+1-a] < M[min, min]
then min := M[a, 4+1-a]
- у тебя в матрице рандомные числа максимум до 10, ты назначаешь их в min и max, а потом эти min и max пытаешься использовать как индексы.
Заведи отдельные переменные для сохранения индексов, например imin и imax и пользуйся ими, например как-то так:
for a := 1 to 4 do
if M[a, 4+1-a] < M[imin, imin]
then begin
min := M[a, 4+1-a];
imin := a;
end
По поводу параметра цикла не уверен, возможно в Pascal.ABC есть какие-то особенности по сравнению с обычным паскалем. Нашел вот такое:
"Описание параметра цикла for в заголовке цикла соблюдает принцип локальности: переменная описывается в том месте, где она впервые понадобилась
begin
for i: integer := 1 to 9 do
write(i,' ');
// Здесь переменная i не доступна!
for var i := 9 downto 1 do // описание с автоопределением типа
write(i,' ');
end."
#include <iostream>
using namespace std;
int main()
{
unsigned int x, y, z;
cin >> x >> y >> z;
if((x + y + z) % 2 == 0){
if((3*z + 2 >= x + y) || (3 * x + 2 >= y + z) || (3 * y + 2 >= x + z)){
cout << "YES";
return 0;
}
}
else{
cout << "NO";
return 0;
}
return 0;
}
Проверка2 2 2
YES
3 1 2
YES
1 1 1
NO