Program massa;var m, a: real; begin writeln('Введите массу.'); readln(m); writeln('Введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна, 5 - центнер.'); readln(a); writeln('Введённое вами значение равно '); if a=1 then write(m, ' килограмм.'); if a=2 then write(m/1000000, ' килограмм.'); if a=3 then write(m/1000, ' килограмм.'); if a=4 then write(m*1000, ' килограмм.'); if a=5 then write(m*100, ' килограмм.'); end.
меее, немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок
A)
_________________________________
Program task_1;
var
A, B, C : integer;
begin
read(A);
B := A;
C := 0;
While B <> 0 do
begin
C := C*10 + B mod 10;
B := B div 10
end;
If A=C then
begin
writeln('Число симметрично')
end
else
begin
writeln('Число НЕ симметрично')
end;
end.
Ответ:
int a = Int32.Parse(Console.ReadLine());
int b = Int32.Parse(Console.ReadLine());
int c = Int32.Parse(Console.ReadLine());
if(a+b<c && a+c<b && b + c < a)
{
Console.WriteLine("Треугольник существует");
if (a == b && a == c && b == c) Console.WriteLine("Треугольник равносторонний");
else if (a != b && a != c && b != c) Console.WriteLine("Треугольки разносторонний");
else { Console.WriteLine("Треуголькие равнобедренный"); }
}
else
{
Console.WriteLine("Треугольника не существует");
}
Определим, во сколько раз второе соединение медленнее первого. Для этого нужно разделить первую скорость на вторую:
1536/384 = 4
Т.к. скорость в 4 раза ниже, значит и объем, который будет передан за то же время, в 4 раза меньше.
80 Кбайт / 4 = 20 Кбайт.
