Не для всех. Например, get-command в Power Shell.
var a,b,c,d:integer;
BEGIN
read(a,b,c,d);
if (a*b*c*d mod 3 = 0) then
writeln("Pravda")
else writeln("Nepravda");
END.
2) Сортирую не методом выбора, а пузырьковым методом, т.к. мне неизвестна формулировка "метод выбора"
program z1;
var
mas:array[1..10] of Integer;
m,n,temp:integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(100);
end;
for i:=1 to 4 do if mas[i]>mas[i+1] then
begin
temp:=mas[i+1];
mas[i+1]:=mas[i];
mas[i]:=temp;
end;
for i:=6 to 9 do if mas[i]<mas[i+1] then
begin
temp:=mas[i+1];
mas[i+1]:=mas[i];
mas[i]:=temp;
end;
end.
Если нужен еще и вывод на экран - то дописываете перед end. следующее: for i:=1 to 10 do writeln(mas[i])
Насчет первого. Мне непонятна формулировка "отсортировать по последней цифре"
{Pascal}
var
a:array[1..100] of integer;
b:array[1..100] of integer;
c:array[1..200] of integer;
i, n, m: integer;
begin
write('Размер массива A: ');
readln(n);
write('Размер массива B: ');
readln(m);
writeln('Массив A:');
for i:=1 to n do begin
write('A[',i,'] = ');
readln(a[i]);
end;
writeln('Массив B:');
for i:=1 to n do begin
write('B[',i,'] = ');
readln(b[i]);
end;
for i:=1 to n do
c[i]:=a[i];
for i:=n+1 to n+m do
c[i]:=b[i-n];
writeln('Массив C:');
for i:=1 to n+m do
write(c[i]:4);
end.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (xa,ya):=ReadReal2('Введите координаты х и у точки А:');
var (xb,yb):=ReadReal2('Введите координаты х и у точки B:');
Writeln('|AB| = ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya)))
end.
<u>Пример</u>
Введите координаты х и у точки А: 10 2
Введите координаты х и у точки B: 10 7
|AB| = 5