Круг-яблоня, квадрат-сосна, дуб, прямоугольник- ландыш, морковь
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.
Что должна вычислять программа?
#include <iostream>
using namespace std;
int reduce_fraction(int n, int m)
{
if (m == 0) {
return n;
}
return reduce_fraction(m, n % m);
}
int main()
{
int num, dem;
cout << "Nominator: ";
cin >> num;
cout << "Denominator: ";
cin >> dem;
int nod = reduce_fraction(num, dem);
cout << num << '/' << dem << " => " << (num / nod) << '/' << (dem / nod) <<
endl;
return 0;
}
1.
var
x: integer;
y: real;
begin
readln(x);
if x>=0 then
y:=sqrt(x)
else
y:=sqr(x);
writeln(x, ' ',y);
end.
P.S. скорее всего, в условии требовалось sqrt, ибо sqr это и есть квадрат числа.
var
x: integer;
y: real;
begin
readln(x);
if x>=1 then begin
y:=sqrt(x-1);
writeln(y);
end
else if x<-1 then
begin
y:=x/(-1);
writeln(y);
end
else
writeln('Ф-я значений не имеет');
end.