Программирование на Паскале.

program mas_min_krat3;

var

i,n,m,x:integer;

begin

read(n);

m:=30000;

for i:=1 to n do

begin

read(x);

if (x<m)and(x mod 3=0) then m:=x;

end;

writeln(m);

end.

### PascalABC.NET ###

begin

 var A := ReadSeqInteger('вводи: ', ReadInteger('длина посл-ти: '));

 A.Where(p -> p mod 3 = 0).Min.Println;

end.

Flash-память представляет собой микросхему, помещенную в миниатюрный плоский корпус. Для считывания или записи информации карта памяти вставляется в специальные накопители, встроенные в мобильные устройства или подключаемые к компьютеру через USB-порт. Информационная емкость карт памяти может достигать 512 Мбайт.К недостаткам flash-памяти следует отнести то, что не существует единого стандарта и различные производители изготавливают несовместимые друг с другом по размерам и электрическим параметрам карты памяти.

Задача 1:

#include <iostream>

using namespace std;

int main()

{

int a{}, b{};

cout << "a = ";

cin >> a;

cout << endl << "b = ";

cin >> b;

if (a < b) a *= 2, b *= 3;

else b *= 2, a *= 3;

cout << endl << endl << "a = " << a << endl << "b = " << b;

return 0;

}

Задача 2:

#include <iostream>

using namespace std;

int main()

{

int a{};

cout << "a = ";

cin >> a;

if (!(a % 2)) cout << endl << a * a; //if (!(a % 2)) = теж саме, що й if (a % 2 == 0)

else cout << endl << a * a * a;

return 0;

}

Задача 3:

#include <iostream>

using namespace std;

int main()

{

int sum{};

for (int i = 11; i < 100; i += 2) sum += i;

cout << sum;

return 0;

}

Задача 4:

#include <iostream>

using namespace std;

int main()

{

for (int i = 144; i < 1000; i += 48) cout << i << " ";

return 0;

}