М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
2116121056
2116121056
03.06.2020 06:42 •  Информатика

)задан двухмерный массив. найти сумму элементов первой и третьей строк матрицы.создать программу на этот алгоритм через abc paskal,

👇
Ответ:
kakashonka1
kakashonka1
03.06.2020
Uses crt;
const N=5;
         M=5;
var a: array [1..N,1..M] of integer;
    x,y,sum:integer;
begin
     sum:=0;
     for x:=1 to N do
         for y:=1 to M do
         begin
              read(a[x,y]);
              if (x=1) or (x=3) then sum:=sum+a[x,y];
         end;
     writeln('SUM=',sum);
end.
4,6(91 оценок)
Открыть все ответы
Ответ:

using System;

namespace ConsoleApp

{

   class Program

   {

       static void Main(string[] args)

       {

           Console.Write("Enter N = ");

           int n = int.Parse(Console.ReadLine());

           double Result = 1;

           int i;

           for (i = 0; i < n; i++) Result *= 1.0 + 1.0 / Math.Pow((double)i, (double)i);

           Console.WriteLine("For cycle result = " + Result.ToString());

           i = 0;

           Result = 1;

           while (i < n) {

               Result *= 1.0 + 1.0 / Math.Pow((double)i, (double)i);

               i++;

           }

           Console.WriteLine("While cycle result = " + Result.ToString());

           Console.ReadLine();

       }

   }

}

4,7(28 оценок)
Ответ:
Procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3 : Integer;
  kk : Integer;
  Chislo : Integer;
begin
  Memo1.Clear;
  kk := 0;
  for i1 := 1 to 9 do
    for i2 := 0 to 9 do
      for i3 := 0 to 9 do
        if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then
          if ( Frac((i1+i2+i3)/7)=0 ) then
          begin
            Chislo := i1*100 + i2*10 + i3;
            if ( Frac(Chislo/7)=0 ) then
            begin
               Memo1.Lines.Append(inttostr(Chislo));
               inc(kk);
            end;
          end;
end;


Написать программу на языке паскаль нахождения всех трехзначных чисел, у которых все цифры различны,
4,4(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ