Код на C++:
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int color;
cin >> color;
switch (color)
{
case 0:
cout << "Красный";
break;
case 1:
cout << "Оранжевый";
break;
case 2:
cout << "Желтый";
break;
case 3:
cout << "Зеленый";
break;
case 4:
cout << "Голубой";
break;
case 5:
cout << "Синий";
break;
case 6:
cout << "Фиолетовый";
break;
default:
cout << "Нет такого цвета";
break;
}
cout << endl;
return 0;
};
Объяснение:
Visual Basic:
Console.WriteLine("Значение а")
Dim a As Single = Console.ReadLine()
Dim a1 As Single
If a > 5 Then
a1 = a + 20
Console.WriteLine(ControlChars.CrLf &
"При a = {0:#} значение переменной a = {1:#}",
a, a1)
Else
a1 = a * 10
Console.WriteLine(ControlChars.CrLf &
"При a = {0:#} значение переменной a = {1:#}",
a, a1)
End If
Console.Write(ControlChars.CrLf &
"Для завершения программы нажмите любую клавишу...")
Console.ReadKey()
program Lyonyshna;
const
Rus = ['А'..'Я', 'а'..'я'];
Lat = ['A',..'Z', 'a'..'z'];
Var f,frus,flat,foth:text;
i: integer;
st,strus,stlat,stoth: string;
begin
Assign(f, 'file1.txt');
Rewrite(f);
write('Введите исходную строку: '); readln(st);
writeln(f,st);
close(f);
strus:='';
stlat:='';
stoth:='';
Reset(f);
Assign(frus, 'russian.txt');
Rewrite(frus);
Assign(flat, 'latin.txt');
Rewrite(flat);
Assign(foth, 'other.txt');
Rewrite(foth);
Readln(f,st);
for i:=1 to length(st) do
if st[i] in rus then strus:=strus+st[i]
else
if st[i] in lat then stlat:=stlat+st[i]
else
stoth:=stoth+st[i];
Writeln(frus,strus);
Writeln(flat,stlat);
Writeln(foth,stoth);
Writeln('Русские символы: ',strus);
Writeln('Латинские символы: ',stlat);
Writeln('Другие символы: ',stoth);
Close(f); Close(frus); Close(flat); Close(foth);
end.