Напишите программы на языке паскаль:
1. напишите программу, которая в последовательности натуральных чисел
определяет сумму трёхзначных чисел, кратных 4. программа получает на вход
натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: сумму трёхзначных чисел, кратных 4.
2. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 6 и оканчивающихся на 4. программа
получает на вход количество чисел в последовательности, а затем сами числа.
количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 6 и оканчивающихся на 4.
3. напишите программу, которая в последовательности целых чисел
определяет количество чисел, кратных 5 или 9. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в
последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 5 или 9.
4. напишите эффективную программу, которая по двум данным натуральным
числам a и b, не превосходящим 3, подсчитывает количество нечетных
натуральных чисел на отрезке [a,b] (включая концы отрезка). программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 3. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество нечетных чисел на отрезке [a,b].
5. напишите программу, которая в последовательности натуральных чисел
находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «no»). программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «no», если таких чисел нет. значение выводить с точностью до десятых.
6. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в последовательности, а затем сами числа. в
последовательности всегда имеется число, кратное 4 и не кратное 7. количество
чисел не превышает 1000. введённые числа не превышают 30 000. программа
должна вывести одно число: количество чисел, кратных 4, но не кратных 7.
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,m:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(599)-299;
write(a[i,j]:5)
end;
writeln
end;
writeln;
for i:=1 to n do if a[i,3]>0 then k:=k+1;
if k>0 then writeln('В 3-ем столбце количество положительных элементов равно: ',k)
else writeln('В В 3-ем столбце нет положительных элементов');
writeln;
m:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>m then m:=a[i,j];
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j] mod 2 = 0 then a[i,j]:=m;
write(a[i,j]:5)
end;
writeln
end;
writeln;
end.
Все зависит от того, что Вы хотите делать. Язык программирования - это не самоцель, а всего лишь средство для того, чтобы выполнить какую-то работу. Например, если Вы хотите заняться веб-дизайном, то Вам неплохо бы помимо python знать java, php и html, а также не помешает знание SQL, если Вы будете составлять запросы к базам данных.Если же Вы хотите программировать чипы на низком уровне, то вам нужно изучение программирования в машинных кодах и assembler, для научного программирования пригодятся, например, Matlab, fortran, c,c++,c#. В общем, для каждой области деятельности есть свой набор инструментов и что именно изучать зависит от того, для чего Вы хотите свои навыки применять.