<span>В Древней Индии писали на камне и листьях пальмы. Листья пальмы высушивали и нарезали длинными, узкими пластинами. На пальмовых листьях писали чернилами из сажи, разведенной в подслащенной воде </span>
<span>Если для записи использовалось более одного листа, то все написанные листы соединяли бечевкой, концы которой прикреплялись к хорошо обструганным деревянным дощечкам. Пальмовые листы находились между двумя дощечками, как книга в переплете. Иногда поверхность дощечек покрывали тонкими серебряными пластинами с узорной резьбой.</span>
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.
Program array15numbers;
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.
Остались вопросы? - спрашивай в комментах.
Нужно более подробное объяснение - пиши в лс vkcom/ilyahard
Тебе на каком языке программирования писать? Могу сказать принцип.
Вводишь конструкцию, которая проверяет, кратно ли число 7. Если да, то счетчик к увеличивай на 1, а к сумме(которая изначально равна нулю) прибавляй это число.
На с++ выглядит так:
if(chislo%7==0){
k++;
sum=sum+chislo}
