Если число делится на 3 и на 5, то оно делится и на их произведение, т.е. на 15.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n mod 15=0 then Writeln('Число делится на 3 и 5 одновременно')
else Writeln('Число не делится на 3 и 5 одновременно')
end.
<u>Пример</u>
Введите натуральное число: 1115
Число не делится на 3 и 5 одновременно
2, можно взвесить по 2 монеты и выбрать из них там где есть и фальшивая, а потом взвесить их 2 отдельно
Сначала вводится N(кол-во эл-в в массиве), потом сам массив a.
Потом вводится M и массив b.
Программа выводит перевернутые массивы a и b
Если будут вопросы пиши к комментариям.
#include <bits/stdc++.h>
using namespace std;
int main(){
int N;
cin >> N;
vector<int> a(N);
for (int i = 0; i < N; i++)
cin >> a[i];
int M;
cin >> M;
vector<int> b(M);
for (int i = 0; i < M; i++)
cin >> b[i];
reverse(a.begin(), a.end());
reverse(b.begin(), b.end());
for (int i = 0; i < N; i++)
cout << a[i] << ' ';
cout << endl;
for (int i = 0; i < M; i++)
cout << b[i] << ' ';
}
Файл - удалить, переместить, переименовать
Папка - удалить, переместить, переименовать
Не знаю, что тут еще можно добавить
Var a,y:real;
begin
readln(a);
if (a<=0)then y:=a+5 else
if (a>0) and (a<1)then y:=1/a else y:=sqr(a);
print(y);
end.
