Вот решение
Сори за транслит, мой компьютер не может по нормальному поддерживать русский язык
1)
#include <iostream>
using namespace std;
// Если у тебя макс не определен, то вот определение
template<typename T>
T max(T a, T b) {
if (a > b) return a;
return b;
}
int main() {
setlocale(LC_ALL, "Russia");
cout << "Введите 3 целых числа\n";
int a, b, c;
cin >> a >> b >> c;
int Max = max(a, b);
Max = max(Max, c);
cout << "Макс = " << Max << endl;
}
2)
#include <iostream>
using namespace std;
// translit one love
int main() {
cout << "Vvedity nomer ";
string num;
cin >> num;
int sum = 0;
for (int i = 0; i < num.length(); i++) {
if (num[i] >= '0' && num[i] <= '9')
sum += int(num[i]) - int('0');
}
if (sum % 3 == 0) cout << "chislo " << num << " delitsya na 3 potomy cto summa chifr = " << sum << endl;
else cout << "chislo " << num << " ne delitsya na 3 potomy cto summa chifr = " << sum << endl;
}
3)
#include <iostream>
using namespace std;
// translit one love
int main() {
cout << "Vvedity nomer ";
string mouth[12] = { "Yanvar", "Fevral", "Mart", "Aprel",
"May", "Iun", "Iul", "Avgust",
"Sentyabr", "Oktabr", "Noyabr", "Decabr", };
int num = 0;
cin >> num;
cout << "Mesyac is " << mouth[(num + 11) % 12] << endl;
}
1.
program z1;
var a,b:integer;
begin
write('Введите 2 двузначных числа: ');
readln (a,b);
write('Произведение цифр числа ',a,' и числа ',b,' равно ',(a div 10) * (a mod 10) * (b div 10) * (b mod 10))
end.
2.
program z2;
var a,b:integer;
begin
write('Введите 2 числа: ');
readln (a,b);
writeln(a,'% от ',b,' равно ',b*a/100);
write(b,'% от ',a,' равно ',a*b/100)
end.
Объяснение:
Если во второй задаче надо найти какой процент составляет число а от числа b и какой процент составляет число b от а, то меняем строчки
writeln(a,'% от ',b,' равно ',b*a/100);
write(b,'% от ',a,' равно ',a*b/100)
на
writeln('Число ',a,' от числа ',b,' составляет ',a/b*100,'%');
write('Число ',b,' от числа ',a,' составляет ',b/a*100,'%')