naratnikova
?>

Нужно записать на языке паскаль программу для решения , обязательно используя оператор for. : найдите произведение z двух натуральных чисел x и y без использования операции умножения. кто буду , вот даже 25 отсыплю. мне надо, завтра сдавать, а я в информатике не шарю от слова совсем.

Информатика

Ответы

eobmankina
Var i,x,y,z:integer;
begin
read(x,y);
z:=x;
for i:=1 to y do
z:=z+x;
write(z);
end.
bryzgalovag
Егерь - е, художник - х, т - тренер, в - врач, с - Семен, р - Роман, н - Николай, а - Артур.
Итак. Так как е левее т, а в - правее, то т живет не с краю, а, поскольку х тоже живет не с краю, то и е, и в живут с краю, е - с левого, а в - с правого, соответственно условиям 1 и 2. Е живет рядом с х, из этого следует, что х справа от е и слева от т, так как х не может быть слева от е, потому что е живет с левого краю. Т, соответственно, живет в последнем оставшемся доме, то есть между х и в. Р живет рядом с т, то есть, р - не т и живет либо слева от т, либо справа. А живет правее р, что означает, что р живет в доме, что слева от т. Также а живет не рядом с р, то есть в крайнем справа доме. С - не егерь, значит, он живет в любом доме, кроме крайнего левого, но в домах слева и справа от т уже живут р и а, то есть с живет в доме т (Семен - тренер). Ну и оставшийся дом, человек и профессия - Николай, егерь, крайний слева дом.
Итоги: Первый дом - Николай, егерь.
Второй дом - Роман, художник.
Третий дом - Семен, тренер.
Четвертый дом - Артур, врач.
Вадим
Язык программирования Паскаль
m - количество ячеек в строке
n - кол-во ячеек в столбце
Var q:Array[1..m]
w:array[1..n] of integer;
v,i :integer;
Read(a);
Read(b);
begin
1)v:=0
for i:=1 to n do
for  i:= 1 to m do
begin
if q[i] mod 2 = 0 then
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из нечетных элементов');
end.
2)v:=0
for i:=1 to n do
for  i:= 1 to m do
begin
if (q[i] mod a = 0) or (q[i] mod b = 0) then
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из элементов кратных числу a или b');
end.
3)
v:=0
for i:=1 to n do
for  i:= 1 to m do
begin
if q[i] < 0 then
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из отрицательных чисел');
end.
Если что-то не понятно, то постараюсь объяснить.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Нужно записать на языке паскаль программу для решения , обязательно используя оператор for. : найдите произведение z двух натуральных чисел x и y без использования операции умножения. кто буду , вот даже 25 отсыплю. мне надо, завтра сдавать, а я в информатике не шарю от слова совсем.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

NikolayGoncharov
tvtanya80
anton-www1
Yurevich1291
pwd10123869
info292
Евгеньевич Балиловна1398
emaykova785
Dms161964937
slazurnaya
karkh267
Nikolaevich
Georgievna1407
АлексейГагиковна1774
nagas