Uses crt;
var x1,y1,x2,y2:integer;
dlina:real;
begin
read(x1,y1);
read(x2,y2);
dlina:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(dlina);
end.
TDM-GCC 4.9.2 64-bit Release
#include <iostream>
#include <cstdlib>
#include <cmath>
int main(int argc, char *argv[])
{
system("chcp 1251 >nul");
setlocale(LC_ALL, "Russian");
int n;
scanf("%d",&n);
int mas[n], sum = 0, temp = 0;
for(int i = 0; i < n; i++)
{
scanf("%d",&mas[i]);
temp = abs(mas[i]);
while(temp >= 10)
{
sum += temp % 10;
temp /= 10;
}
sum += temp;
}
printf("%d",sum);
return EXIT_SUCCESS;
}
Получилось:<span>154^10 = 10011010^2</span><span> </span>
Программу написал HRAshton. Я немного изменил
алг
нач
целтаб арр[1:3, 1:3]
цел к, п, ш
нц для ш от 1 до 3
нц для к от 1 до 3
арр[ш, к] := int(rnd(900)+100)
вывод арр[ш, к], ' '
кц
вывод нс
кц
нц для ш от 1 до 3
если ш<>2
то
п := арр[ш, 1]
арр[ш, 1] := арр[ш, 3]
арр[ш, 3] := п
все
кц
вывод нс, нс
нц для ш от 1 до 3
нц для к от 1 до 3
вывод арр[ш, к], ' '
кц
вывод нс
кц
кон
<span>
</span>