#include<iostream.h>
int main(void)
{
float x;
cout >> "Задайте число х";
cin >> x;
If ((x%2)==0)
{
x=x*x;
}
else
{
x=x*x*x;
}
cout << x;
return 0;
}
1)
Function check7(a As Range) As Integer
Dim r As Range
Dim i As Integer
For Each r In a
i = i + 1 - Sgn((Abs(r) + 3) Mod 10)
Next
check7 = i
End Function
Excel VBA
2)
А что здесь программировать-то?
Задача сводится к с следующей: Дано два ящика и 7 мячиков. Сколькими способами можно разместить эти 7 мячиков в этих двух ящиках?
Бросаем все мячики в первый ящик (это первое размещение), затем перекладываем по одному мячика из первого ящика во второй.
Получаем варианты:
7|0
6|1
5|2
4|3
3|4
2|5
1|6
Итого 7 вариантов (варианта 0|7 быть не может, поскольку двузначное число с нуля не начинается).
В общем-то и без вычислений всем очевидно, что способов разместить 7 мячиков в двух ящиков ровно 7.
Что должна вычислять программа?
Задание №3 путь А - F = 12
Var A : Byte;
Begin
Readln(A);
Write('Мне ',A,' ');
Case A mod 10 of
0,5..9 : Writeln('лет');
2..4 : Writeln('года');
1 : Writeln('год');
end;
end.
Если это логическая задача, то ответ первый. Тк до запятой 5 слов, не вкл частиц, во втором два, не включая частиц