Ответ:
1. Создайте личную папку, куда вы будете сохранять все файлы своего сайта.
2. Запустите программу Блокнот (Notepad).
3. Наберите в окне программы простейший файл HTML.
<HTML>
<HEAD>
<TITLE>Учебный файл HTML</TITLE>
</HEAD>
<BODY>
Расписание занятий на вторник
</BODY>
</HTML>
4. Сохраните файл под именем RASP.HTML (обязательно укажите тип файла HTML при сохранении) в личной папке.
5. Для просмотра Web-страницы используйте любую программу браузера (Internet Explorer, Opera, Mozilla Firefox или другую). Для этого, не покидая программу Блокнот (сверните окно на панель задач), откройте личную папку и двойным кликом по файлу RASP.HTML откройте окно браузера.
Рисунок 10 – Результат работы
На экране вы увидите результат работы, изображенный на рисунке 10.
Объяснение:
Var
input, output : text;
A, B : integer;
begin
assign(input, 'input.txt'); //Ассоциируем переменные с файлами
assign(output, 'output.txt');
reset(input); //Открываем файл для чтения
rewrite(output); //Открываем файл для записи
readln(input, A);
readln(input, B);
writeln(output, A + B);
close(input); //Закрываем файлы
close(output);
end.
Ответ:
Program z1;
Var a,b,c,p:integer;
begin
Writeln('Введіть сторони трикутника:');
Readln (a,b,c);
p:=a+b+c;
Writeln ('Периметр трикутника:');
if a+b>c AND c+a>b AND b+c>a then
Writeln ('Трикутник буде існувати.')
else
Writeln ('Трикутник не буде існувати.');
end
Смотри сначало у тебя заходит k=1 и выполняется вычисления s=150-12=138 потом программа говорит перейти к следующей к=2 и снова идёт алгоритм s=138-12=126,k=3 s=126-12=114 , k=4 s=102 ,k=5 s=90 , k=6 s=78,k=7 s=66, k=8 s=54, k=9 s=42, k=10 s=30 т.к больше к нет , то он выведит ответ
Program qq;
var a:array of [1..длина массива] of real;
i:integer;
summ:real;
begin
summ:=0;
for i:=1 to длина массива do read(a[i]);
for i:=1 to длина массива do
if (i mod 2 = 0) and (a[i]<0) then summ:=summ+a[i];
writeln(summ);
end.
