Первое задание:
Загрузил решение скрином.
Алгоритм простой, ищем в каждой строке самое большое число по модулю, а потом в той-же строке меняем его на противоположное.
Второе задание:
Загрузил решение скрином.
Ну а тут просто обычная проверка координат, если введёная пользователем координата равна 1, то увеличиваем её на 1, если 2 или 0, то просто ничего не трогаем.
Program P1;
const
R=150000000;
begin
Writeln('Длина орбиты Земли составляет ',2*Pi*R:0:0,' км.')
end.
<em><u>Результат выполнения программы:</u></em>
Длина орбиты Земли составляет 942477796 км.
program p2;
var
stazh,vozrast:integer;
begin
Write('Введите через пробел стаж и возраст: ');
Readln(stazh,vozrast);
if (stazh>=20) and (vozrast<=45) then Writeln('Принимается')
else Writeln('Не принимается')
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел стаж и возраст: 23 50
Не принимается
program p3;
var
i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if sqr(i)+sqr(j)+sqr(k)=105
then Write(i,j,k,' ')
end.
<em><u>Результат выполнения программы:</u></em>
458 485 548 584 845 854
.com ,.info , .co , .ru , .net , .me , .web
{1}
var
n: integer;
begin
write ('Введите заработанную сумму: ');
readln (n);
write ('Вы получите: ', (n*0.77)*0.61)
end.
{2}
var
a: array of double;
n, i: byte;
sum: longint;
begin
write ('Введите кол-во дробных чисел: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите ', i+1, ' число: ');
readln (a[i]);
end;
for i:=0 to n-1 do
begin
writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i]));
inc (sum, trunc(a[i]));
end;
write ('Сумма целых частей: ', sum);
end.
{3}
var
a, b, c, p: double;
begin
write ('Введите стороны треугольника: ');
readln (a, b, c);
if (a>=(b+c)) or (b>=(a+c)) or (c>=(b+a)) or (a<=0) or (b<=0) or (c<=0) then
write ('Такой треугольник не существует')
else begin
p:=(a+b+c)/2;
write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' );
end;
end.
Var
n,i:integer;
Begin
Write('n = ');Read(n);
i:=0;
if n div 1000 = n mod 10 then i:=i+1;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if i=1 then Write('Верно')
else Write('Не верно')
End.