Var i,n,k:integer; begin Writeln('15 чисел, кратных 19:'); i:=100; while i mod 19<>0 do Inc(i); { первое, кратное 19 } Write(i,' '); k:=1; while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end; Writeln end.
Задача 2. var m,V,rho,rmax:real; i:integer; begin Writeln('Максимальная плотность материала для 30 тел.'); Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)'); rmax:=0; for i:=1 to 3 do begin Write(i:2,': '); Read(m,V); rho:=m/V; if rmax<rho then rmax:=rho end; Writeln('Максимальная плотность равна ',rmax:0:3) end.
Начнём с того, что произведение цифр числа меньше двадцати не будет больше десяти. Первое число - 26, т.к. 2* 6 = 12.
А вообще, можно сделать проще.
Алгоритм звучит так:
икс = 10
Пока число(возьмем его за икс) > 9 и < 100:
если первая цифра строки икс "string(x[0])" (или как-то так) умноженная на x[1] больше 10:
вывести это число на экран
прибавить к иксу еденицу
Уточню: насколько я знаю, разглядывать строку как массив позволяет только питон, есть другой Если вы учили преобразование одного типа в другой, вроде вещественного числа 1.23 в целое число (1 в данном случае), можно поделить икс на 10, преобразовать его обратно в целое число, это и будет первая цифра
Вторая цифра - это от икса отнять первую цифру, умноженную на 10.
Цикл "пока" - вроде-бы WHILE.
Ниже прикреплю код на питоне для примера, даже если это не то, что нужно, будет куда взглянуть.
i,n,k:integer;
begin
Writeln('15 чисел, кратных 19:');
i:=100;
while i mod 19<>0 do Inc(i); { первое, кратное 19 }
Write(i,' ');
k:=1;
while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end;
Writeln
end.
Тестовое решение:
15 чисел, кратных 19:
114 133 152 171 190 209 228 247 266 285 304 323 342 361 380
Задача 2.
var
m,V,rho,rmax:real;
i:integer;
begin
Writeln('Максимальная плотность материала для 30 тел.');
Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)');
rmax:=0;
for i:=1 to 3 do
begin
Write(i:2,': '); Read(m,V);
rho:=m/V;
if rmax<rho then rmax:=rho
end;
Writeln('Максимальная плотность равна ',rmax:0:3)
end.
Начнём с того, что произведение цифр числа меньше двадцати не будет больше десяти. Первое число - 26, т.к. 2* 6 = 12.
А вообще, можно сделать проще.
Алгоритм звучит так:
икс = 10
Пока число(возьмем его за икс) > 9 и < 100:
если первая цифра строки икс "string(x[0])" (или как-то так) умноженная на x[1] больше 10:
вывести это число на экран
прибавить к иксу еденицу
Уточню: насколько я знаю, разглядывать строку как массив позволяет только питон, есть другой Если вы учили преобразование одного типа в другой, вроде вещественного числа 1.23 в целое число (1 в данном случае), можно поделить икс на 10, преобразовать его обратно в целое число, это и будет первая цифра
Вторая цифра - это от икса отнять первую цифру, умноженную на 10.
Цикл "пока" - вроде-бы WHILE.
Ниже прикреплю код на питоне для примера, даже если это не то, что нужно, будет куда взглянуть.