a=input()
for i in range(len(list(a))-1):
print(a[i],end="*")
print(a[i+1])
var
i, n : byte;
begin
repeat
write('введите n: ');
readln(n)
until n in [1..9];
writeln('таблица умножения');
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
writeln('таблица сложения');
for i := 1 to 9 do
writeln(n, ' + ', i, ' = ', n + i);
readln
end.
#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
float a, b, c, x1, x2;
cout << "Введите основную сторону: \n";
cin >> a;
cout << "Введите две других: \n";
cin >> b;cin >> c;
cout << "Введите углы: \n";
cin >> x1; cin >> x2;
if (a*a == b*b + c*c) cout << "Прямоугольный\n";
if (a*a < b*b + c*c) cout << "Остроугольный\n";
if (a*a > b*b + c*c) cout << "Тупоугольный\n";
if (x1 == x2) cout << "Равнобедренный\n";
if (a == b && b == c) cout << "Равносторонний \n";
system("pause");
return 0;
}
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var x := ReadReal('x =');
var s := Cos(x);
for var i := 1 to n do
s += Cos(x + i);
s.Println
end.