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

Решите с pascal 1. Найти сумму чисел, которые оканчиваются на 9. Программа получает на вход количество чисел в последовательности, а затем сами числа.
2. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа.
3. Пользователь вводит два целых числа A и B (А 4. Даны натуральные числа от 101 до 321. Напечатать те из них, которые делятся БЕЗ ОСТАТКА на 4, но не делятся на 6.

👇
Ответ:
kristinacelidze167
kristinacelidze167
14.04.2020

1)

var

n,x,s,i : integer;

begin

s:=0;

write('Введите n: '); read(n);

for i:=1 to n do

begin

write('X - ', i, ' = '); read(x);

if x mod 10 = 9 then

s:=s+n;

end;

writeln('Сумма с 9 на конце = ', s);

end.

2)

var

n,i,max,x : integer;

begin

max:=0;

write('Введите n: '); read(n);

for i:=1 to n do

begin

if (x > max) and (x mod 5 = 0) then

max:=x;

write('X - ',i,' = '); read(x);

end;

writeln('Максимальное, кратное 5 = ', max);

end.

3)

var

a,b,i : integer;

begin

write('a = '); read(a);

write('b = '); read(b);

for i:=a to b do

begin

if (i mod 4 = 0) and (i mod 6 <> 0) then

writeln(i);

end;

end.

4,8(49 оценок)
Открыть все ответы
Ответ:
gilmutdinova011
gilmutdinova011
14.04.2020
<<

   for (int i = 0; i < fabs(N); i++) {


       // выводим символ в консоль

       cout << sym;


   }


   // отступаем строчку и говорим, что программа закончилась

   cout << endl << "Finish draw" << endl;


}


void printColumn(int N) {


   // конвертируем число N в строку

   std::string s = std::to_string(N);


   // делаем цикл по всей строке. s.length вернет ее длинну.

   // любая строка это массив символов, а с массивами мы работаем циклами.

   for (int i = 0; i < s.length(); i++) {


       // выводим символ i в строке s

       cout << s[i] << endl;


   }


}


int main()

{

   cout << "Task 30241034!" << endl; // just for fun


   // вызываем первое. Передаю один аргумент т. к. второй уже стоит по умолчанию

   drawLine(-3);


   // вызываем второе

   printColumn(12);


   return 0;

}

4,6(47 оценок)
Ответ:
earthas
earthas
14.04.2020
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

begin

 var (a, b) := (ArrRandom, ArrRandom);

 Println('Исходные массивы: '); a.Println; b.Println; Println;

 var m := a.Zip(b, (x, y)-> max(x, y)).ToArray;

 

 Println('Конечные массивы: ');

 a := a.Select((t, i)-> t + m[i]).ToArray; a.Println;

 b := b.Select((t, i)-> t + m[i]).ToArray; b.Println;

 

 Println($'{NewLine}Сред. арифм. = {a.Average}');

 Println($'Минимальный = {b.Min}{NewLine}Максимальный = {b.Max}');

end.


Пример вывода в приложении.


Преобразовать два заданных массива, увеличивая их соответствующие элементы на большее из рассматрива
4,7(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ