Cls
pi=3.141592
for x=0 to 180 step 10
y=x * pi /180
print x, sin(y), cos(y), tan(y)
if tan(y)<>0 then print 1/tan(y) else print "не существ"
next
end
Var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
<span>end.
</span>Нажимаем "лучший ответ"
4 бита на цвет и 7 бит на адрес клетки (6бит - 64 клетки, 7 бит- 128)
итого 11 бит=1 байт 3 бита
#include <iostream>
using namespace std;
int main() {
int a;
int b;
cout << "Привет, сегодня ты пройдешь тест по персонажу 'Дефстроук'" << endl;
cout << "Начнем!" << endl;
cout << "1.Какое настоящее имя персонажа?" << endl;
cout << "1-Стивен роджерс" << endl;
cout << "2-Брюс Вейн" << endl;
cout << "3-Джозеф Уилсон" << endl;
cout << "4-Питер Паркер" << endl;
cin >> a;
switch (a) {
case 3:
b += 1;
break;
}
cout << "2.Какой цвет глаз у персонажа?" << endl;
cout << "1-Зеленый" << endl;
cout << "2-голубой" << endl;
cout << "3-Коричневый" << endl;
cout << "4-Серые" << endl;
cin >> a;
switch (a) {
case 2:
b += 1;
break;
}
cout << "3.Когда появился этот персонаж?" << endl;
cout << "1-1970" << endl;
cout << "2-1985" << endl;
cout << "3-1990" << endl;
cout << "4-1980" << endl;
cin >> a;
switch (a) {
case 4:
b += 1;
break;
}
cout << "4.Какой цвет волос у персонажа?" << endl;
cout << "1-голубой" << endl;
cout << "2-зеленый" << endl;
cout << "3-белый" << endl;
cout << "4-чёрный" << endl;
cin >> a;
switch (a) {
case 3:
b += 1;
break;
}
cout << "5.Какой род занятий у персонажа?" << endl;
cout << "1-Наемник" << endl;
cout << "2-Бухгалтер" << endl;
cout << "3-Продавец" << endl;
cout << "4-Повар" << endl;
cin >> a;
switch (a) {
case 1:
b += 1;
break;
}
cout << "6.Какие враги у персонажа?" << endl;
cout << "1-капитан америка, супер мен" << endl;
cout << "2-Человек паук, железный человек" << endl;
cout << "3-Бэтмен, зелёная стрела" << endl;
cout << "4-Халк, капитан очевидность" << endl;
cin >> a;
switch (a) {
case 3:
b += 1;
break;
}
cout << "7.Персонаж:?" << endl;
cout << "1-Супергерой" << endl;
cout << "2-Суперзлодей" << endl;
cout << "3-Нейтрал" << endl
cin >> a;
switch (a) {
case 2:
b += 1;
break;
}
cout << "8.Имя персонажа на англ.?" << endl;
cout << "1-Deathstrike" << endl;
cout << "2-killstroke" << endl;
cout << "3-killer" << endl;
cout << "4-DeathSroke" << endl;
cin >> a;
switch (a) {
case 4:
b += 1;
break;
}
switch (b) {
case 1:
cout << "Вы ужасно знаете персонажа" << endl;
break;
case 2:
cout << "Вы ужасно знаете персонажа" << endl;
break;
case 3:
cout << "Вы плохо знаете персонажа" << endl;
break;
case 4:
cout << "Вы плохо знаете персонажа" << endl;
break;
case 5:
cout << "Вы неплохо знаете персонажа" << endl;
break;
case 6:
cout << "Вы неплохо знаете персонажа" << endl;
break;
case 7:
cout << "Вы отлично знаете персонажа" << endl;
break;
case 8:
cout << "Вы полностью знаете персонажа" << endl;
break;
}
return 0;
}
Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
<span>end.</span>