Var x1, x2, y1, y2, s: real;
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.
Количество символов опр. так: 2^3=8
Ответ:
как-то так:
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "RUS");
cout << "Данные какой страны вывести?\n1. Венгрия..." << endl;
int choise;
cin >> choise;
switch choise {
case 1:
cout << "Столица - Будапешт, население - 11 млн. чел." << endl;
case 2:
cout << "Столица - Рим, население - 60 млн. чел." << endl;
case 3:
cout << "Столица - Афины, население - 10 млн. чел." << endl;
case 4:
cout << "Столица - Анкара, население - 55 млн. чел." << endl;
case 5:
cout << "Столица - Каир, население - 53 млн. чел." << endl;
case 6:
cout << "Столица - Катманду, население - 18 млн. чел." << endl;
case 7:
cout << "Столица - Брюссель, население - 10 млн. чел." << endl;
}
system("pause");
return 0;
}
Var n,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
case n of
3..9 : k:=1;
10..99 : begin
k:=1;
for i:=10 to n do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
end;
100..999:begin
k:=1;
for i:=10 to 99 do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
for i:=100 to n do
if (i div 100=3)or(i div 10 mod 10=3)or(i mod 10=3) then k:=k+1;
end;
end;
writeln('k = ',k);
end.
Пример:
n = 120
k = 21
Нужно все нужное скинуть с диска там где винда ! (на другой диск) ......... А потом отформатировать диск . ................И с помощью мастера поставить новую (просто у мастера спецпрограмма) .......................