Var a:array[1..10,1..12] of integer;
n,m,n1,n2,i,j,s1,s2:integer;
b:boolean;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do read(a[i,j]);
readln(n1,n2);
s1:=0; s2:=0; b:=true;
for j:=1 to m do
begin
s1:=s1+a[n1,j]; s2:=s2+a[n2,j];
if a[n1,j]<>a[n2,j] then b:=false;
end;
if b then write('YES, s1 = ',s1) else write('NO, s2 = ',s2);
end.
Пример:
3 4
1 2 3 4
2 3 1 4
1 2 3 4
1 3
YES, s1 = 10
1. Дима дарил котенка в желтых перчатках Вике
2. 7 гладиолусов подарил Саша
3. Ульянов учитель и ездит на автобусе, Савинов журналист и ездит на такси, а Жуков сварщик и ездит на метро
Так?
var c, b:integer; a, v:real;
begin
read(b,c);
a:=30*b/4+c ;
v:=b/a;
writeln(v);
end.
98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
1 Дано слово ,,КОМПЬЮТЕР". Составить программу получения слов ,,КОМ", ,, РЕТРО'', ,, РОК", используя только буквы исходного слов
Малинка-я
<u><em>*** 1 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='КОМПЬЮТЕР';
Writeln(w[1:4]);
Writeln((w.Right(3).Inverse)+w[w.Length]+w[2]);
Writeln(w[w.Length]+w[2::-1])
end.
<u><em>Результат</em></u>
КОМ
РЕТРО
РОК
<u><em>*** 2 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='КОМПЬЮТЕР';
var i:=ReadInteger('i=');
Swap(w[i],w[w.Length]);
Writeln(w)
end.
<u><em>Тестовое решение</em></u>
i= 5
КОМПРЮТЕЬ
<u><em>*** 3 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='ПАР'; // исходное слово
var k:=4; // константа сдвига шифра Цезаря
var a:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯАБВГ';
for var i:=1 to w.Length do begin
var p:=Pos(w[i],a);
if p>0 then w[i]:=a[p+k]
end;
Writeln(w)
end.
<u><em>Результат</em></u>
УДФ
