1составьте программу , вычисляющую сумму кубов первых n натуральных чисел 2туристы в 1-ый день прошли 7км.в каждый следующий день они проходили на 1.5 км > .составь программу , вычисляющую сколько километров они пройдут за n дней. ,
Ответы
ты т у п о й. д е б и л мен саған не керек едым қазақ халқының дәстүрлі емес інім нури да бар бірақ ол кезде ол не дейді қазақ тілінде тест на әк тастан жасалған дән мен саған не болды деп көрсетеді және бұл да бар екен не было қазақ тілінде неше әріп не зоч да көп болуы тиіс ал запрос да көп болды ал аккаунт мен бжб да бір басқа да көптеген қазақ халқының саны шамамен екі жүз айлық есептік көрсеткіш мөлшерінде айыппұл салуға не екі жүз он бес сыры да осында қазақ тілінде неше септік көмектес септігі тиеді деп аталады ал аккаунт мен бжб матем мен саған не болған жағдайда оны
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program pr;
var
n, i, k, m: integer;
begin
k := 0;
writeln('Введите количество чисел последовательности');
readln(n);
if n <= 1000 then
begin
for i := 1 to n do
begin
writeln('Введите ', i, ' число:');
readln(m);
if abs(m) <= 30000 then
begin
if (m mod 3 = 0) and (m mod 10 = 2) then
inc(k);
end
else
begin
writeln('Число по модулю не должно превышать 30000');
exit;
end;
end;
writeln('Количество элементов последовательности кратных 3 и оканчивающихся на 2: ', k);
end
else
writeln('Количество не должно превышать 1000');
end.
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
