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

2 задание. Решите задачу, решение пропишите в документе ( ) Если первый ученик за 1 час может собрать Х ведер яблок, второй ученик - У ведер, третий - Z ведер, то сколько ведер яблок они соберут за T часов? Составьте программу.
НО ТОЛЬКО ЗА ПРАВИЛЬНЫЙ ОТВЕТ

Показать ответ
Ответ:
Маргоритка11
Маргоритка11
25.05.2023 07:18
В паскале самые простые массивы, проще не кудадада.

одномерные, просто как синтаксис
type
mas1=array[1,10] as interger
interger это целое число, оно имеет размерность 1 байт

значит от 1 до 10, итого 10 байт памяти будет выделено под массив mas1

eсли пишу mas1[3] то обращусь к 3 элементу массива

массовый присваивает в паскале нет, только по очереди или всеми константами на старте, при инициализации

есть еще двух, трех и прочие многодетные массивы, например для определения координат на плоскости

такие дела, пиши
0,0(0 оценок)
Ответ:
speedoflight3
speedoflight3
14.08.2022 01:05
Первая программа:
program First_program;
var  i: longint;
begin  for i := 15 to 35 do   begin    if(i mod 2 = 0) then      write(i, ' ')  end;end.

Вторая программа:
program Second_program;
var  i, h, g: integer;  k: string;
begin  k := '';  for i := 1 to 20 do    if i mod 2 = 0 then      write(i, ' ');  writeln;  for i := 20 to 30 do    if odd(i) then      k := k + i + ',';  g := length(k);  for i := g downto g - 1 do    if (k[i] = ',') then      delete(k, i, 1);  write(k)end.

Третья программа:
program Third_program;
var  i, sum, proz: integer;
begin  sum := 0;  proz := 1;  for i := 1 to 10 do    if (i mod 2 = 0) then      sum := sum + i    else      proz := proz * i;  writeln(sum);  write(proz);end.

Четвертая программа:
program Fourth_program;
var  i: longint;  k: integer;
begin  k := 0;  for i := 10 to 99 do    if (i mod 2 = 0) and (i mod 3 = 0) then      k := k + i;  write(k)end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота