1. пользователь вводит число: если число меньше 0 - вывести "число отрицательное" если число больше 0 - вывести "число положительное" если ввели 0 - "число ни положительное, ни отрицательное" 2. пользователь вводит число, если оно четное (условие проверки a % 2 == 0) - вывести число на 2 меньше, иначе - на 2 больше 3. если пользователь вводит: яблоко - вывести "оно зеленое" персик - "он розовый" картошка - "она " виноград - "он черный" помидор - "он красный" использовать switch 4. найти сумму введенных пользователем чисел. ввод идет до тех пор, пока не введен 0. 5. составить программу рассчитывающую чистую зарплату с учетом налоговых вычетов. если оклад меньше 100000 рублей, то налоги составляют 35%, если больше то 45%. представить в виде функции, и спрашивать пользователя о новом расчете зарплаты. 6. вводятся пользователем 5 чисел. сохранить эти числа в массив. после добавить к каждому число его индекс в массиве. дедлайн: 19.06.19 21: 59
Program d_and_e;
Var
a,b,sum_d,sum_e:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второеое число: ');
ReadLn(b);
sum_d:=(a div 10) + (b div 10);
sum_e:=(a mod 10) + (b mod 10);
WriteLn('сумма десятков чисел: ', sum_d);
WriteLn('сумма единиц чисел: ', sum_e);
end.
Вторая программа.
Program d_and_e;
Var
a,b,mult_d1_e2,mult_e1_d2:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второе число: ');
ReadLn(b);
mult_d1_e2:=(a div 10) * (b mod 10);
mult_e1_d2:=(a mod 10) * (b div 10);
WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2);
end.
Третья программа.
Program d_and_e;
Var
a,b,mult_d1_e2,sum_e1_d2:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второе число: ');
ReadLn(b);
mult_d1_e2:=(a div 10) * (b mod 10);
sum_e1_d2:=(a mod 10) + (b div 10);
WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2);
end.