Перевод кода Pascal в C# (Консольное приложение)
Условия задания: Дан текст. Напечатать все имеющиеся в нем цифры.
Код Pascal :
s:string;
i:integer;
Begin
read(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then write(' ',i,' элемент - ',s[i]);
end.
Ответы
Ответ дал:
0
Написал, но должен предупредить.
Во-первых, программа принимает текст, независимо от того, сколько строк было введено, и "читать" она перестанет только после ввода символа с кодом 0, напечатать который можно сочетанием клавиш [email protected]
Во-вторых, ты выводишь результат в строку, но, на мой взгляд, из-за этого выходит какой-то bull sh****, так что я использую на "Write()", а "WriteLine()". Ты же можешь поменять, если критично.
Код ниже
\\\\\\\\\\\\\\\
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace kekus3{
class main {
static void Main(string[] args) {
string s = ""; char buff;
while ((buff = (char)Console.Read()) != 0)
s += buff.ToString();
Console.WriteLine();
for (int i = 0; i < s.Length; ++i)
if (s[i] >= '0' && s[i] <= '9')
Console.WriteLine(" {0} элемент - {1}", i+1, s[i]); Console.ReadKey();
}
}
}
\\\\\\\\\\\\\\\
Код выше
Во-первых, программа принимает текст, независимо от того, сколько строк было введено, и "читать" она перестанет только после ввода символа с кодом 0, напечатать который можно сочетанием клавиш [email protected]
Во-вторых, ты выводишь результат в строку, но, на мой взгляд, из-за этого выходит какой-то bull sh****, так что я использую на "Write()", а "WriteLine()". Ты же можешь поменять, если критично.
Код ниже
\\\\\\\\\\\\\\\
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace kekus3{
class main {
static void Main(string[] args) {
string s = ""; char buff;
while ((buff = (char)Console.Read()) != 0)
s += buff.ToString();
Console.WriteLine();
for (int i = 0; i < s.Length; ++i)
if (s[i] >= '0' && s[i] <= '9')
Console.WriteLine(" {0} элемент - {1}", i+1, s[i]); Console.ReadKey();
}
}
}
\\\\\\\\\\\\\\\
Код выше
Вас заинтересует
2 года назад
3 года назад
9 лет назад
9 лет назад