Pascal abc: в двумерном массиве поменять местами элементы второй строки с элементами второго столбца и вывести первоначальный и конечный массивы. числа рандомные.

C++:

Первая задача. Вторую заливайте отдельно.

#include "pch.h"

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "Russian");

int n;

p:

cout << "Введи трехзначное число: "; cin >> n;

if (n > 999 || n < 100)

{

 cout << "Это не трехзначное число" << endl;

 goto p;

}

int r = n % 3;

if (r == 0)

{

 cout << "Число кратно трем. Первая цифра этого числа: " << (n - n % 100) / 100 << endl;

}

else

{

 cout << "Число не делится на три. Сумма первых двух цифр равна: " << (n - n % 100) / 100 + (n % 100 - (n % 100) % 10) / 10 << endl;

}

}

Pascal

Объяснение:

PascalВыделить код

PascalВыделить кодvar

PascalВыделить кодvar n, c: integer;

PascalВыделить кодvar n, c: integer;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n);

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n); Kol(n, c);

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n); Kol(n, c); write(c);

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n); Kol(n, c); write(c);end.