Program z1; Var a,b,c,d,e,f,s:string;Begin write('Введите название животного - '); readln(s); writeln; a:='кошка'; b:='собака'; c:='птица'; d:='мышь'; e:='лиса'; f:='волк'; if (s=a) then writeln(s,' - cat') else if (s=b) then writeln(s,' - dog') else if (s=c) then writeln(s,' - bird') else if (s=d) then writeln(s,' - mouse') else if (s=e) then writeln(s,' - fox') else if (s=f) then writeln(s,' - wolf') else writeln('Таких животных в базе нету'); <span>End.</span>
#include <iostream>
using namespace std;
int main() {
int n, a[15], b[8];
cin >> n;
for(int i = 0; i < n; ++i) cin >> a[i];
int cnt = 0
for(int i = 1; i < n; i+=2) {
b[i / 2] = a[i];
++cnt;
}
cout << "Длина массива b: " << cnt << endl;
for(int i = 0; i < cnt; ++i) cout << b[i] << " ";
}
<span>import math as m
a =int(input('a='))
P = a**<span>2
</span>print("Периметр квадрата = ",P)
r = int(input("r = "))
print("Периметр круга = ",round(2*m.pi*r,4))</span>
Хороший калькулятор http://tablica-istinnosti.ru/newindex.html