1. Дано число х. Найти значение выражения: Y = 10Х2 + 2 2. Дано число х. Найти значение выражения: Z = 7Х2 – 10
3. Известны числа X и Y . Найти значения выражений: a = 5Х + 8Y; b = 4X-2Y
4. Даны целые числа a и b. Написать программу, которая сначала находит большее из них, затем к наибольшему значению прибавляет пять.
5. Дано число х. Увеличить число на 20, если число четное.
6. Для данного вещественного х найти значение у=5х+1, если х B. Задачу решить с цикла While.
входные данные С=10, B=1
выходные данные 10 9 8 7 6 5 4 3 2 1
11. Составить программу, которая вычисляет средний возраст студентов в группе состоящее из 10 человек. (значения задаются в массиве констант)
12. Введите с клавиатуры массив C, из 5 элементов целого типа, нумерация начинается с 1 и вывести все элементы массива увеличенные в 20 раз
13. Сформировать массив из n случайных чисел от 0 до 10. Найти произведение чисел кратных 4.
14. Сформировать массив из n случайных чисел. Посчитать сколько среди них положительных значений. Вывести на экран элементы массива и посчитанные количества.
#include <string>
#include <math.h>
#include <algorithm>
using namespace std;
int hexCharToDec(char hexChar)
{
switch (hexChar) {
case 'a':
return 10;
break;
case 'b':
return 11;
break;
case 'c':
return 12;
break;
case 'd':
return 13;
break;
case 'e':
return 14;
break;
case 'f':
return 15;
break;
default:
return hexChar - 48;
break;
}
}
int hexToDec(string hexString)
{
std::transform(hexString.begin(), hexString.end(), hexString.begin(), ::tolower);
int power = 0, ret = 0;
for (string::reverse_iterator rit = hexString.rbegin(); rit != hexString.rend(); ++rit) {
ret += hexCharToDec(*rit) * pow(16, power);
power++;
}
return ret;
}
int main()
{
string s;
cout << "Строка: ";
cin >> s;
cout << endl << "ответ: " << hexToDec(s) << endl;
return 0;
}
Function isPali(A : int64) : Boolean;
Var B : int64;
Begin
B:=1;
While B<A do B:=B*10;
B:=B div 10;
If A>9 then isPali:=((A div B)=(A mod 10)) and isPali(A mod B div 10) else isPali:=True;
end;
Begin
Readln(n);
If isPali(n) then Writeln('Это полиндром.') else Writeln('Это не полиндром.');
Write('Его квадрат ',sqr(n));
If isPali(sqr(n)) then Writeln(' полиндром.') else Writeln(' не полиндром.');
end.
Хотя в Pabc.net есть функция и покороче:
Function IsPali(B : Longint) : Boolean;
Begin
IsPali:=(B=IntRevers(B));
end;