Вывести все числа от 1 до 1 оканчивающиеся на 8 и делящиеся на 3.
на паскале, программа полностью.
Ответы на вопрос:
var a: integer;
begin
for a: =1 to 1 do
begin
if (a mod 10 =8)and(a mod 3 =0) then writeln(a);
end;
end.
begin
seqgen(10, 6, t -> t + 6).aggregate(int64(1), (p, q)-> p * q).println;
seqgen(25, 7, t -> t + 7).sum.println
end.
результат 219419659468800 2275 2) "школярский вариант"(для тех, у кого учителя в развитии застряли в паскале образца 1983 года)
var
i, s: integer;
p: real;
begin
p : = 1;
for i : = 1 to 10 do
p : = p * i * 6;
writeln(p);
s : = 0;
for i : = 1 to 25 do
s : = s + i * 7;
writeln(s)
end.
3) "школопетский вариант"(для тех, у кого голова, чтобы "в нее кушать")
var
i, s, n: integer;
p: real;
begin
p : = 1;
n : = 0;
i : = 1;
while n < 10 do
begin
if i mod 6 = 0 then
begin
p : = p * i;
inc(n)
end;
inc(i)
end;
writeln(p);
s : = 0;
n : = 0;
i : = 1;
while n < 25 do
begin
if i mod 7 = 0 then
begin
s : = s + i;
inc(n)
end;
inc(i)
end;
writeln(s)
end.
Популярно: Информатика
-
grigoryanoksan14.05.2023 05:10
-
bIshkin14.03.2023 04:51
-
001011007.08.2021 16:16
-
LLLLLina12.11.2020 03:44
-
nikadidok02.09.2022 23:27
-
dfhhu04.10.2020 20:55
-
stupidcarl01.08.2020 00:24
-
DashaFomicheva1300509.02.2022 22:56
-
asdf4201.05.2021 07:11
-
Панель1105.11.2021 10:33