#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;
}
Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>
Формальные языки потребовались людям для того чтобы перевести информацию из одного вида другой для хранения передачи и воспроизведения информаций.
Первая:
Uses crt;
Var arr:array[1..100] of integer;
n,a,c:integer;
Begin
Write('Сколько чисел вы хотите ввести?-');
Readln(n);
for a:=1 to n do
begin
Write('Введите ',a,' число:');
Readln(arr[a]);
end;c:=0;
For a:=1 to n do
Begin
if (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;
end;
Writeln('В последовательности ',c,' нечетных отрицательных чисел.');
<span>end.
Вторая:
Uses crt;
Var arr:array[1..100] of integer;
a,b,c,m:integer;
begin
Write('Сколько чисел вы хотите ввести?-');
Readln(b);
For a:=1 to b do
begin
Write('Введите ',a, ' число:');
Readln(arr[a]);
end;
For a:=1 to b do
Begin
m:=arr[a];
For c:=1 to 2 do
begin
arr[a]:=m*arr[a];
end;end;
For a:=1 to b do
begin
Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);
end;
<span>end.</span>
</span>
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99);
Writeln('количество различных элементов->',mas.Distinct.Count);
end.