C#:
int a;
ConsoleKeyInfo keyInfo;
do
{
Console.WriteLine("Введите номер одного из зимних месяцев:\n12, 1, 2");
a = Convert.ToInt32(Console.ReadLine());
switch (a)
case 12:
Console.WriteLine("Декабрь\n");
break;
case 1:
Console.WriteLine("Январь\n");
case 2:
Console.WriteLine("февраль\n");
default:
Console.WriteLine("Не зимний месяц\n");
}
//Ниже идёт зацикливание программы, для удобства. Если Вам этого не требуется, то вместо нижеперечисленного впишите "Console.ReadKey();"
Console.WriteLine("Если хотите повторить программу нажмите F");
Console.WriteLine("Если хотите завершить программу нажмите любую другую кнопку\n");
keyInfo = Console.ReadKey(true);
while (keyInfo.Key == ConsoleKey.F);
ответ 1:
Program zadacha;
var
i,n:integer;
begin
writeln ('Введите число: '); readln(n);
for i:=1 to n do write(n-i+1);
end.
ответ 2:
i,a,b:integer;
writeln ('Введите A: '); readln(a);
writeln ('Введите B: '); readln(b);
for i:=a to b do
if (i mod 2 <> 0) then writeln(i);
ответ 3:
i,a,b,sum:integer;
if (i mod 10 = 7) then begin sum:=sum+i; end;
writeln('Результат: ',sum);
C#:
int a;
ConsoleKeyInfo keyInfo;
do
{
Console.WriteLine("Введите номер одного из зимних месяцев:\n12, 1, 2");
a = Convert.ToInt32(Console.ReadLine());
switch (a)
{
case 12:
Console.WriteLine("Декабрь\n");
break;
case 1:
Console.WriteLine("Январь\n");
break;
case 2:
Console.WriteLine("февраль\n");
break;
default:
Console.WriteLine("Не зимний месяц\n");
break;
}
//Ниже идёт зацикливание программы, для удобства. Если Вам этого не требуется, то вместо нижеперечисленного впишите "Console.ReadKey();"
Console.WriteLine("Если хотите повторить программу нажмите F");
Console.WriteLine("Если хотите завершить программу нажмите любую другую кнопку\n");
keyInfo = Console.ReadKey(true);
}
while (keyInfo.Key == ConsoleKey.F);
ответ 1:
Program zadacha;
var
i,n:integer;
begin
writeln ('Введите число: '); readln(n);
for i:=1 to n do write(n-i+1);
end.
ответ 2:
Program zadacha;
var
i,a,b:integer;
begin
writeln ('Введите A: '); readln(a);
writeln ('Введите B: '); readln(b);
for i:=a to b do
if (i mod 2 <> 0) then writeln(i);
end.
ответ 3:
Program zadacha;
var
i,a,b,sum:integer;
begin
writeln ('Введите A: '); readln(a);
writeln ('Введите B: '); readln(b);
for i:=a to b do
if (i mod 10 = 7) then begin sum:=sum+i; end;
writeln('Результат: ',sum);
end.