Паскаль,1) вывести все четные числа от 1 до 15 2)вывести на экран числа от 2 до 9 с шагом 0,2
165
434
Ответы на вопрос:
Var i: integer; begin i : = 2; while i < 15 do begin write(i: 3); i : = i + 2 end; writeln end. тестовое решение: 2 4 6 8 10 12 14 var p: real; begin p : = 2; while p < 9.01 do {нельзя задавать ровно 9 из-за накопления ошибок шага 0.2} begin write(p: 4: 1); p : = p + 0.2 end; writeln end. тестовое решение: 2.0 2.2 2.4 2.6 2.8 3.0 3.2 3.4 3.6 3.8 4.0 4.2 4.4 4.6 4.8 5.0 5.2 5.4 5.6 5.8 6.0 6.2 6.4 6.6 6.8 7.0 7.2 7.4 7.6 7.8 8.0 8.2 8.4 8.6 8.8 9.0
1)var
a: array [1..30] of integer;
i, s, k: integer;
beginfor i : = 1 to 30 do//заполнение рандомными числами(от -15 до 50, включая и -15 и 50) массив
a[i] : = random(-15, 50);
for i : = 1 to 30 do//сумма элементов и подсчет кратных 3
begin
s : = s + a[i]; //сумма элементов
if a[i] mod 3 = 0 then//подсчет кол во кратных 3
k : = k + 1;
end;
writeln('исходный массив');
for i : = 1 to 30 do
writeln('a[', i, '] = ', a[i]);
writeln('сумма элементов массива: ', s);
writeln('кратных 3: ', k);
end.
извини бы дальше но дела но вот подсказки:
2) метод пузырька посмотри
3) там через функцию поиска и удаления
если над у меня есть группа в вк называется просто программки если интересно можешь глянуть
Популярно: Информатика
-
vanessashevchuk22.08.2022 22:24
-
Danila25100823.08.2021 13:06
-
olegiwanow28.02.2023 05:09
-
zoology1g30.04.2022 00:53
-
aliina00022.02.2021 12:28
-
Ilya33344422.11.2021 03:50
-
marina0242709.07.2022 15:06
-
Маргоритка1101.02.2023 16:46
-
Нафаня1337133702.09.2020 04:13
-
Nastiy198720.04.2022 13:29