Program Pr1;
uses crt;
const n=100;
m=100;
var mas:array[1..n,1..m] of integer;
i,j,l,k,v:integer;
Begin
clrscr;
for j:=1 to m do
for i:=1 to n do begin
randomize;
mas[i,j]:=random(100);
end;
l:=0;v:=0;
for j:=1 to m do
for i:=1 to n do begin
k:=1;
while k<=m do if k=m then k:=k+1
else begin
l:=mas[i,k]+l;
k:=k+1;
end;
if mas[i,j]>l then v:=v+1;
l:=0;
end;
writeln(v);
end.
1) y = 12, x = 3.
2) k = 30.
3) s = 61.
Microsoft Word (часто — MS Word, WinWord или простоWord) — текстовый процессор, предназначенный для создания, просмотра и редактирования текстовых документов, с локальным применением простейших форм таблично-матричных алгоритмов. Выпускается корпорацией Microsoft в составе пакета Microsoft Office.
Буду обозначать команду "умножение на 2" буквой m, "стереть последнюю цифру" буквой c.
а) 361 -> 722 -> 72 -> 7 (mcc)
361 -> 36 -> 72 -> 7 (cmc)
б) 457 -> 45 -> 90 -> 9 -> 18 -> 36 -> 72 -> 7 -> 14 (cmcmmmcm)
457 -> 914 -> 1828 -> 3656 -> 7312 -> 14624 -> 1462 -> 146 -> 14 (mmmmmccc)
Var
a, b:integer; //числа типа integer, т.е. целые числа
Begin
write('Введите число a: ');
read(a); //читаем значение а
write('Введите число b: ');
read(b); //читаем значение b
if(a>b) then writeln('>'); //если a>b тогда пишем '>'
if(a<b) then writeln('<'); //если a<b тогда пишем '<'
if(a=b) then writeln('='); //если a=b тогда пишем '='
end.