М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
AnfisaCat
AnfisaCat
20.04.2022 12:38 •  Информатика

Утворіть лінійні алгоритми таких задач: 1) посадка молодого дерева; 2) обчислення площі кімнати.

👇
Ответ:

Молодое дерево вырастит а я нет

Объяснение:

4,5(77 оценок)
Открыть все ответы
Ответ:
samira2314
samira2314
20.04.2022
Var
  c:array [1..10] of integer;
  i, even, positive, sumLessSix: integer;
begin
  randomize;
  writeln ('Рандомный массив');
  for i:=1 to 10 do begin
    c[i]:= random(20)-10;
    write (c[i],' ');
  end; {for}
  writeln;
  writeln('Произведение четных чисел');
  even:=1;
  for i:=1 to 10 do
    if c[i] mod 2 = 0  then
    even:= even*c[i];
  write(even,' ');
  writeln;
  writeln('Произведение положительных чисел');
  positive:=1;
  for i:=1 to 10 do
    if c[i] > 0 then
    positive:= positive*c[i];
  write(positive,' ');
    writeln;
  writeln('Сумма элементов меньших 6');
  positive:=1;
  for i:=1 to 10 do
    if c[i] < 6 then
    sumLessSix:= sumLessSix+c[i];
  write(sumLessSix,' ');
end.
4,4(51 оценок)
Ответ:
ndan1k
ndan1k
20.04.2022
Type
  tFIO=record
    fam,im,otch:string
  end;
var
  f:tFIO;
  s:string;
  g:Text;
  i,n:integer;
begin
  Assign(g,'IOF.txt'); Rewrite(g);
  Write('Количество сотрудников: '); Readln(n);
  for i:=1 to n do
  begin
    With f do
    begin
      { сформировать запись типа f }
      Writeln('*** Сотрудник № ',i,' ***');
      Writeln('Фамилия: '); Readln(s); fam:=s;
      Writeln('Имя: '); Readln(s); im:=s;
      Writeln('Отчество: '); Readln(s); otch:=s;
      { занести данные в файл }
      Writeln(g,im,' ',otch,' ',fam)
    end
  end;
  Close(g)
end.
4,6(52 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ