1-й этап
Дано:
а — сумма, получаемая продавцом с продажи каждой из первых 50 газет;
1,2 ⋅ а — сумма, получаемая продавцом с продажи каждой из последующих газет.
Найти:
s — общую сумму, которую получит продавец с продажи 200 газет.
2-й этап
Для нахождения s можно вычислить значение следующего выражения:
50 ⋅ а + 150 ⋅ 1,2 ⋅ а.
Здесь а и s — величины вещественного типа.
3-й этап
Блок-схема
4-й этап
program n_12_63;
var a, s: real;
begin
writeln (‘Подсчет заработка продавца’);
writeln (‘Ввод а‘);
readln (a);
s:=50*a+150*1.2*a;
writeln (‘Продавец заработал ‘, s,’ руб.’)
end.
5-й этап
Протестировать программу можно по следующим данным:
а = 1,
s = 230.
Объяснение:
Совсем не но как минимум даст толчок
Сам на паскале не пишу, но нашел программку:
var
a,b,n,m,i: word;
write('Числовой промежуток: ');
readln(a,b);
write('Количество делителей не менее... ');
readln(n);
while a <= b do begin
m := 0;
for i:=1 to a do
if a mod i = 0 then m := m + 1;
if m >= n then begin
write(a,' - ', m,' - ');
if a mod i = 0 then write(i,' ');
writeln;
end;
a := a + 1;
Вот как примерно выглядит на выходе:
Числовой промежуток: 21 44
Количество делителей не менее... 5
24 - 8 - 1 2 3 4 6 8 12 24
28 - 6 - 1 2 4 7 14 28
30 - 8 - 1 2 3 5 6 10 15 30
32 - 6 - 1 2 4 8 16 32
36 - 9 - 1 2 3 4 6 9 12 18 36
40 - 8 - 1 2 4 5 8 10 20 40
42 - 8 - 1 2 3 6 7 14 21 42
44 - 6 - 1 2 4 11 22 44
1-й этап
Дано:
а — сумма, получаемая продавцом с продажи каждой из первых 50 газет;
1,2 ⋅ а — сумма, получаемая продавцом с продажи каждой из последующих газет.
Найти:
s — общую сумму, которую получит продавец с продажи 200 газет.
2-й этап
Для нахождения s можно вычислить значение следующего выражения:
50 ⋅ а + 150 ⋅ 1,2 ⋅ а.
Здесь а и s — величины вещественного типа.
3-й этап
Блок-схема
4-й этап
program n_12_63;
var a, s: real;
begin
writeln (‘Подсчет заработка продавца’);
writeln (‘Ввод а‘);
readln (a);
s:=50*a+150*1.2*a;
writeln (‘Продавец заработал ‘, s,’ руб.’)
end.
5-й этап
Протестировать программу можно по следующим данным:
а = 1,
s = 230.
Объяснение:
Совсем не но как минимум даст толчок
Объяснение:
Сам на паскале не пишу, но нашел программку:
var
a,b,n,m,i: word;
begin
write('Числовой промежуток: ');
readln(a,b);
write('Количество делителей не менее... ');
readln(n);
while a <= b do begin
m := 0;
for i:=1 to a do
if a mod i = 0 then m := m + 1;
if m >= n then begin
write(a,' - ', m,' - ');
for i:=1 to a do
if a mod i = 0 then write(i,' ');
writeln;
end;
a := a + 1;
end;
end.
Вот как примерно выглядит на выходе:
Числовой промежуток: 21 44
Количество делителей не менее... 5
24 - 8 - 1 2 3 4 6 8 12 24
28 - 6 - 1 2 4 7 14 28
30 - 8 - 1 2 3 5 6 10 15 30
32 - 6 - 1 2 4 8 16 32
36 - 9 - 1 2 3 4 6 9 12 18 36
40 - 8 - 1 2 4 5 8 10 20 40
42 - 8 - 1 2 3 6 7 14 21 42
44 - 6 - 1 2 4 11 22 44