Const mile = 7;
const verst = 500;
const saj = 3;
const arsh = 28;
const dm = 25.4;
const mm = 1000000;
var x, km: real;
begin
write('Введите число для перевода из миль в километры: ');r
eadln(x);
km := ( x * mile * verst * arsh * saj * dm ) / mm;
writeln(x, ' -> ', km);
<span>end.</span>
Var s,a:integer;
i:byte;
begin
s:=0;
For i:=1 to 3 do
begin
readln (a); // цена тетради
s:=s+a; // прибавление к общей стоимости тетрадей
end;
writeln (s);
end.
смогли я Вам чем-нибудь помочь?
Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
<span>end.</span>
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
Ответ:
#include <iostream>
int main()
{
float Number[10];
for (int i = 0; i < 10; i++) {
std::cin >> Number[i];
}
for (int i = 0; i < 10; i++) {
for (int j = 0; j < 10; j++) {
if (Number[i] < Number[j]) {
float temp = Number[j];
Number[j] = Number[i];
Number[i] = temp;
}
}
}
for (int i = 0; i < 10; i++) {
std::cout << Number[i] << "\t" ;
}
return 0;
}
Объяснение:
Работает правильно, но возможно был допущен недочёт в алгоритме, для сортировки использовал пузырьковую сортировку.