Экономика
1) Напишите программу, которая в последовательности натуральных чисел определяет сумму четырехзначных чисел , кратных 6. Программа получает на вод натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0(0- признак окончания ввода, не входит в последовательность).
Программа должна вывести одно число: сумма четырехзначных чисел , кратных 6.
2) Напишите программу , которая в последовательности натуральных чисел определяет максимальное число, кратно 3 и оканчивающиеся на 3. программа получает на вход кол-во чисел в последовательности, а заем сами числа. В последовательности всегда имеется число, кратное 3 и оканчивающиеся на 3. Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число- максимальное число, кратное 3 и оканчивающиеся на 3.
Составить программу на Паскаль
Из массива Р, содержащего 10 элементов, сформировать массив Н по правилу:
Н(к)=I/P(к), (к -чётные), Н(к)=Р(к)+к, (к - нечётные)
В массиве, содержащем 10 элементов, нечётным элементам присвоить значения квадратов их индексов.
В массиве, содержащем 10 элементов, напечатать индекс последнего из элементов, равных 0.
QBasic. Помогите, пожалуйста! . Программа запрашивает названия двух футбольных команд, количество забитых голов каждой из команд в первом и ответном матче и выводит название команды-победителя и общий счет. Победитель определяется по сумме двух матчей. Считается, что первый матч проходит на поле команды 1, ответный – на поле команды 2. В случае, когда результат по сумме двух матчей ничейный (например, 2:0 и 1:3 = 3:3 по сумме двух матчей), победителем становится команда, забившая больше мячей на поле соперника (либо назначается дополнительное время, если таковой нет, например 2:0 и 0:2).
Срочно,помогите,пожалуйста,очень надо..
Дам 50 баллов!!
Нужно создать рыбу в паскале ABC с использованием команды OnVector
На подобии этого:
program pr1;
uses Drawman;
begin
Field(10,10);
ToPoint(*,*);
PenDown;
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
И так сколько угодно...
PenUp;
end.
Как то так ,только вместо звездочек(*) цифру...
И команду OnVector не обязательно столько сколько я начертила,а так чтобы рабы,получилась,я просто не знаю куда картинку кидать ,чтобы показать..
