Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Решите мне кто не спит задачи. Последние два я сама решила) Помогите с первыми 3! Я не успеваю, а завтра сдавать!!! Спасибо! Только при решении прономеруйте! Можете одну или две решить. Какую хотите из номеров 1,2,3!
Пожалуйста! Спасибо!
Только 1,2,3!!!!

Ответ оставил Гость

Я накидаю только циклы, программу оформите сами...
Первая задача
----------------------------------------
for  i:=1  to N do
   WriteLn ( i= , i);
-----------------------------------------
Таблица Умножения:

-------------------------------------
   for i:=1 to N
   begin
     for j:= 1 to N
         Write(i, * , j, = , i*j:4);
     WriteLn;
  end;
-------------------------------------------

И, наконец,  напишем программу, которая отыскивает максимальный элемент. Это мы сделаем сразу при вводе

var i, N, a, Max, MaxInd: integer;

begin
Write(Ведите а=); ReadLn(a);
Max:=a; MaxInd:=1;
for i:=2 to N do
   begin
       Write(Введите элемент); ReadLn(a);
       if a>Max then begin
                                Max:=a;
                                 MaxInd:=i;
                            end;
  end;
WriteLn(MaxInd = , MaxInd);
ReadLn;
end.