1Тема проекта которую я выбрал: програмист
2почему выбрал эту тему: Потому что прогромисты будет очень нужны в будущем
3 Что нового узнал чему научился: Что програмисты работают в гаджетах и они умеют делать игры и тд
4 Как нашёл нужную информацию: Я узнал новую информацию от родителей
5 Как сохранил информацию: Я сохранил информацию в папке и всё
6: Каким оброзом переносили лучшее: В созданиех проектах
7 Что удалось выполнить лучшее: Удалось лучшее выполнить это создание проекта
8 Что не смогли сделать в проекте: Нам не удалось создать приложение
9 Каковы впечатление отвыполнение проекта: Не было впечатление Потому что это было не сложна
Объяснение:
Надеюсь памог друг до свидание если отправь+
Объяснение:
це перше
program CalculateSegmentLength;
uses Math;
var
a, b, c, ab: integer;
begin
writeln('Ввести значення А: ');
readln(a);
writeln('Ввести значення B: ');
readln(b);
writeln('Ввести значення C: ');
readln(c);
ab := Round(Sqrt(a * Sqr(c)) + b * Sqr(c));
writeln('Довжина відрізка: ', ab);
end.
це 2
program CheckValues;
uses Math;
var
a, b, c: integer;
begin
writeln('Ввести значення А: ');
readln(a);
writeln('Ввести значення B: ');
readln(b);
writeln('Ввести значення C: ');
readln(c);
if a = b then
writeln('Yes')
else
writeln('NO');
end.
це 3
program PrintFavoriteMonth;
var
m: string;
i: integer;
begin
writeln('Який ваш улюблений місяць в році? ');
readln(m);
for i := 1 to 10 do
writeln(m);
end.
i:integer;
s:real;
begin
randomize;
for i:=1 to 30 do
begin
a[i]:=150+random(56);
write(a[i]:4);
s:=s+a[i];
end;
writeln;
writeln(s/30:7:2);
end.