1)
var num1, num2, i, res: integer;
begin
Write('Введите числа >>> '); {Нет -Ln, ввод чисел будет происходить на первой строке}
ReadLn(num1, num2); {Вводить числа через пробел, подряд}
res:=0; {Обнуляем счетчик, иначе результат будет неожиданный}
for i:=1 to num2 do res:=res + num1; {Прибавляем num1 к счетчику res num2 раз}
Writeln(res); {Выводим}
ReadLn
end.
2)
var a,b,P:integer;
kv:String;
begin
writeln ('Введите геометрическую фигуру kv или pr');
Readln(kv);
if (kv = 'kv') then begin
write ('Введите сторону квадрата');
readln (a);
P:=a*4;
writeln('P= ',P);
end
else begin
writeln('ВВедите a и b');
readln(a,b);
P:=(a+b)*2;
writeln('P=',P);
end;
end.
3)
var
a, b, c, P: real;
begin
writeln('Введите два катета прямоугольного треугольника:');
readln(a, b);
P := a + b; { <-- сумма катетов }
c := sqrt(sqr(a) + sqr(b)); { <-- гипотенуза с }
P := P + c; { <-- периметр P }
writeln('Результат:');
writeln(' c = ', c:0:2);
writeln(' P = ', P:0:2);
readln
end.
-18 | 36 | 0 | -3 | 4 | 15 |
-18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве).
36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве).
0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве).
-3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве).
4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве).
15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).
Подробнее - на -
