Подводная лодка, чтобы погрузиться в воду, приняла 250 т воды. Найдите объем подводной части лодки

Решение к задаче по физике представлено в виде картинки и приложено к ответу

ответ:

– завжди зазначайте тему листа. тема має якомога точніше відображати зміст повідомлення.

– у тексті листа дотримуйтеся зазначеноїтеми. пам’ятайте, що багато людей щодня одержують десятки листів, тому викладайте свої думки чітко та лаконічно.

– не надсилайте листів із вкладеними файлами великих обсягів. це не лише сповільнює пересилання, а й може стати причиною повернення вашого листа, якщо на поштовому сервері встановлено обмеження на обсяг вкладеного файла.

– у відповіді наводьте уривки з листа, на який відповідаєте, а не весь лист. цитувати потрібно лише ті фрази, що безпосередньо стосуються змісту вашої відповіді.

– не пишіть увесь текст великими літерами. такий текст дуже важко читати, застосовуйте великі літеридо окремих слів, які необхідно виділити.

– розбивайте текст на логічні абзаци. це насамперед стосується листів з великим обсягом тексту.

– перевіряйте помилки. по-перше, з грамотною людиною приємно мати справу, а по-друге, помилки в словах або при розставленні пунктуаційних знаків можуть призвести до двоякого тлумачення змісту повідомлення.

– підписуйте лист. у підписі рекомендовано зазначати своє ім’я та адресу електронної пошти, а в діловому листуванні бажано додавати контактний телефон.

– не затягуйте з відповіддю. відповідати на листа слід доби.

– будьте ввічливі.☺️

Program TaskC;

Var i, il: Integer;

Begin

For i := 1 To 21 Do

If i Mod 2 = 1 Then

Write(i, ' ');

i := i + 1;

End;

ReadLn;

End.

Program TaskD;

Var i: Integer;

Begin

For i := 1 To 11 Do

Write(i * 2, ' ');

End;

ReadLn;

End.

Program TaskE;

Var i: Integer;

Begin

For i := 10 DownTo 1 Do

Write(i, ' ');

ReadLn;

End.

Program TaskF;

Var i: Integer;

Begin

For i := 10 DownTo 1 Do

Begin

Write(i * 10, ' ');

End;

ReadLn;

End.

Program TaskG;

Var i, sum: Integer;

Begin

For i := 1 To 10 Do

sum := sum + i;

WriteLn(sum);

ReadLn;

End.

Program TaskH;

Var i, product: Integer;

Begin

product := 1;

For i := 1 To 5 Do

product := product * i;

WriteLn(product);

ReadLn;

End.

Program TaskI;

Var i, sum: Integer;

Begin

For i := -5 To 5 Do

sum := sum + Abs(i);

WriteLn(sum);

ReadLn;

End.

Program TaskJ;

Var c: Char;

Begin

For c := 'A' To 'Z' Do

Write(c, ' ');

ReadLn;

End.

Объяснение: