10. построить блок-схему по программе:
program zadacha (input, output);
var x1, y1, x2, y2, с: real;
begin
writeln (' введите значения x1, y1, x2, y2');
readln (x1, y1, x2, y2);
c: = sqrt ((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
writeln ('расстояние =', с)
end.
Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin
var m:=ReadInteger('Введите расстояние в метрах');
var (km,mm):=(m div 1000,m mod 1000);
Write(m,'км = ',km,'км');
if mm>0 then Writeln(' ',mm,'м') else Writeln
end.
Пример
Введите расстояние в метрах 4501
4501км = 4км 501м
2. Так часто учат писать в школе
program Perevod;
var
m,km,mm:integer;
begin
Write('Введите расстояние в метрах');
Readln(m);
km:=m div 1000;
mm:=m mod 1000;
Write(m,'км = ',km,'км');
if mm>0 then Writeln(' ',mm,'м')
else Writeln;
end.
#include <algorithm>
using namespace std;
int main()
{
long long int n{ 0 }, z{ 0 };
while (cin >> n) {
size_t ans[120];
for (; n != 0; n = n / 10) {
int tmp = n % 10;
if (n / 10 != 0 || (n / 10 == 0 && n != 9)) {
tmp = min(tmp, 9 - tmp);
}
ans[z++] = tmp;
}
for (int i = z - 1; i >= 0; i--) {
cout << ans[i];
}
cout << endl;
}
return 0;
}