Перевод кода Pascal ABC на язык C#

Узнай цену своей работы

Формулировка задачи:

кто поможет перевести ети коды на язык си шарп. ? я попытаося перевести но что то не получатся. вот коды 2-ух программ:
var
    s,d,t,r:string;
       i,k:integer;
begin
     readln (s);

     for i:=length(s) downto 1  do
     begin
          d:=copy(s, i,3);
          r:=copy(s, i,2);
 
          if d='ova' then
          begin
             writeln('женшина')
          end;

         if r='ov' then
          begin
             writeln('мужчина')
          end;
 
      end;
      
end.

var
    s, d, a, z: string;
    
    i: integer;
 
begin
      readln(s);
      
      for i:=1 to length(s) do
      begin
          d:=copy(s, i, 1);
          
          if d='@' then
          begin
              writeln('ошибка')
          end;
 
          if d='/' then
          begin
              writeln('ошибка')
          end;

           if d='!' then
          begin
              writeln('ошибка')
          end;

           if d='$' then
          begin
              writeln('ошибка')
        end;
    end;
end.

Решение задачи: «Перевод кода Pascal ABC на язык C#»

textual
Листинг программы
using System;
 
class Program
{
    static void Main()
    {
        string input = Console.ReadLine();
        if (input.IndexOfAny(new char[] { '@', '/', '!', '$' }) != -1)
            Console.WriteLine("Ошибка");
    }
}

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы