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

написать на паскале очень ! 1)Создать файл f целых чисел с генератора случайных чисел.
2)записать четные числа из файла f в файл g

👇
Открыть все ответы
Ответ:
ypinkers0
ypinkers0
07.01.2022
Даю пример на c#, авось придумать код на паскале, т.к сам онли в c#:
int perva, pervb, pervv;
int vtora, vtorb, vtorv;
Console.WriteLine("Введите длину первого ящика");
perva = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите ширину первого ящика");
pervb = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите высоту первого ящика");
pervv = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите длину второго ящика");
vtora = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите ширину второго ящика");
vtorb = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите высоту второго ящика");
vtorv = Convert.ToInt32(Console.ReadLine());
int result;
int result2;
result = perva * pervb * pervv;
result2 = vtora * vtorb * vtorv;
obratno:
if (result > result2)
{
int anotherresult;
anotherresult = result2 * 2;
goto obratno;
}
if (result < result2)
{
int anotherresult2;
anotherresult2 = result * 2;
goto obratno;
}
4,5(71 оценок)
Ответ:
fima9
fima9
07.01.2022
1. Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?

ЛЕКЦИЯ

2. Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?

Две длины слова, т.е. 9+9=18

3. Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА',3,6).

Надо взять, начиная с третьего символа, шесть символов.

4. Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?

24 + 24 =48

5. Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7)); ?

ЭЛЕКТРО
4,5(23 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ