Объявление с ошибками плохо воспринимается и настораживает людей. Найдите и исправьте все ошибки в форматировании текста. Вспомни, как расставлять пробелы.
Пропала собака!
Вчера вечером в нашем районе пропала собака по кличке Ричи. У неё рыже-чёрная длинная шерсть. Есть белые пятна на лапах и возле носа,белый кончик хвоста. На ней был ошейник с медальоном в форме косточки.
все, кто видел Ричи, звоните в любое время по указанному телефону. Не оставайтесь равнодушными!
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.
Правильность не гарантирую, потому что проверить в данный момент код негде.
Sub название
Dim A() As Integer
Dim b() As Integer
Dim i, j As Integer
'Задаем размерность массива
Console.WriteLine ("Введите количество строк")
n = Console.ReadLine
Console.WriteLine ("Введите количество столбцов")
m = Console.ReadLine
ReDim A(n, m) As Integer
ReDim b(n) As Integer
'Цикл ввода данных
For i = 1 To n
For j = 1 To m
Console.WriteLine ("Введите число")
A(i, j) = Console.ReadLine
Next j
Next i
'Все элементы массива b изначально делаем единичными, чтобы при умножении они не повлияли на значение
For i = 1 To n
b(i) = 1
Next i
'Цикл вычисления каждого элемента массива b
For i = 1 To n
For j = 1 To m
b(i) = b(i) * A(i, j)
Next j
Next i
'Вывод результата на экран
For i = 1 To n
Console.Write (b(i))
Next i
End Sub