В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

Задание 3. Водные системы 1. Откройте файл Водные системы.doc (Водные системы.odt) из
папки Заготовки:
Волга, Днепр, Чёрное море, Тихий океан, море, Байкал,
,
Иссык-Куль, Нил, Индийский океан, река, Азовское море, океан,
озеро, Мичиган, Ангара, Карибское море, Средиземное море,
Гусь, Плещеево озеро.
2. Переструктурируйте информацию в многоуровневый список.
Вариант оформления придумайте сами.​


Задание 3. Водные системы 1. Откройте файл Водные системы.doc (Водные системы.odt) изпапки Заготовки

Показать ответ
Ответ:
OlyaKasyanenko28
OlyaKasyanenko28
30.09.2021 11:48

1)

var A: array [1..6,1..4] of integer;

i,j: integer;

begin

randomize;

for i := 1 to 6 do begin

    for j := 1 to 4 do begin

        A[i,j] := random(20) - 10;

    end;

end;

 

for i := 1 to 6 do begin

    for j := 1 to 4 do begin

        if (A[i,j] == 0) then begin

            writeln("0 v stroke ", i);

            continue;

        end;

    end;

end;

 

end.

 

2)

var B: array [1..10] of integer;

i: integer;

begin

for i := 1 to 10 do begin

    if (i mod 2 == 0) then B[i] := 5;

    else B[i] := 2;

end;

 

for i := 1 to 10 do begin

    writeln(B[i]);

end;

 

end.

0,0(0 оценок)
Ответ:
gazelle116
gazelle116
05.01.2022 08:24

1)

program pr;
uses crt;
Var y,x:real;

Begin
 Writeln('vvedite x');
 readln(x);
 y:=(4*x)/(x-1);
 Writeln('y=',y:10:3);
  readln;
end.

 

 

2)

program pr;

Var n,i,a:integer;

Begin
Writeln('введите кол-во цыфр');
readln(n);

for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;

end.

 

 

2) использование массива

 

program pr;
uses crt;
Var n,i:integer;
    a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);

Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');

end.

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота