Решение данной задачи смотрите в прикрепленном скриншоте:
В результате выполнения программы на ленте останутся 2 метки - крайняя левая и крайняя правая (из тех, что были на ленте первоначально).
Команды 2, 3, 4 стирают все метки после первой левой. В команде 5 каретка возвратится назад, а в команде 6 будет поставлена метка на месте последней стертой.
#include <iostream>
#include <math.h>
using namespace std;
int main()
{<span>
int kat_alph, kat_beta;
</span><span> setlocale (0,"");
</span><span> cout<<"введите первый катет ==> ";</span><span>
cin>>kat_alph;</span><span>
cout<<"введите второй катет ==> ";</span><span>
cin>>kat_beta;</span><span>
</span><span>cout<<"гипотенуза равна ==> "<< sqrt (pow(kat_alph,2) + pow(kat_beta,2))<<endl;
cout<<"площадь треугольника равна ==> "<< (kat_alph*kat_beta)/2;</span><span>
return 0;
} </span>
1) Первое задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, k: integer;
Begin
Randomize;
i := 1;
k := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] > 15) then
k := k + 1;
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('k = ', k);
End.
2) 2 задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, s: integer;
Begin
Randomize;
i := 1;
s := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] mod 2 = 0) then
s := s + a[i];
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('s = ', s);
End.
P.S. На фотографии не видно часть второго задания. Скорее всего там написано, что нужно посчитать сумму элементов массива с четным значением. Такую программу я и писал.
Вот :) Надеюсь, всё будет понятно.