Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Написать решение на языке Pasсal
1) (Использование условного оператора в теле операторов цикла с условием)!!!
Найти 15 первых натуральных чисел, делящихся нацело на 19 и находящихся в интервале, левая граница которого равна 100.
2) Известны данные о массе (в кг) и объеме (в см3) 30ти тел, изготовленных из различных материалов. Определить максимальную плотность материала.
Пожалуйста!!!

Ответ оставил Гость

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.

Тестовое решение:
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  end;
  Writeln(Максимальная плотность равна ,rmax:0:3)
end.