инфоpматика
2. В магазине продают конфеты. В первый день продали 1/5 всех конфет. Во второй
день продали В % от оставшихся конфет. После этого осталось 24 кг конфет. Сколько
конфет было вначале?
3. У Светланы T друзей. На день рождения каждый из них подарил Светлане цветы.
Причём первый подарил 1 цветок, второй 3 цветка, третий 5 цветков и т. д. Сколько
всего цветов подарили Свете? Причём, если в сумме получалось чётное количество
цветов, то последний дарил на 1 цветок меньше.
4. В 7 классе B человек. Каждый из них участвовал в сборе макулатуры. Есть
последовательность из В чисел — количество кг макулатуры, принесённых каждым
учеником. Сколько всего собрано макулатуры 7 классом и сколько в среднем
приходится кг макулатуры на одного ученика

👇

Открыть все ответы

Ответ:

АнатолийРубчинский

05.02.2020

Program t;
varn, x, i, s, k:integer;
a:array [0..20] of integer; {20 =это максимальное количество домов .Вместо 20 поставь любое число}
begin
write('Введите количество домов на улице : ');
read(n);
for i:=1 to n do
begin
write('Введите количество жителей в ', i, ' -м доме : ');
read(a[i]);
end;
for i:=1 to n do
if i mod 2=0 then s:=a[i]+s; {Считаем жителей правых}
for i:=1 to n do
if i mod 2=1 then k:=a[i]+k;{Считаем жителей левых}
if s>k then write('Разница между домами ', k-s );
if s<k then write('Разница между домами ', s-k );
end.

Введите количество домов на улице : 3
Введите количество жителей в 1 -м доме : 3
Введите количество жителей в 2 -м доме : 1
Введите количество жителей в 3 -м доме : 4
Разница между домами -6

Писал на Версии 3.3
Скобки это комментарии,их можно убрать

4,5(5 оценок)

Ответ:

MadMax22277

05.02.2020

Uses graphAbc;

const
w = 600;
r = 300;

dl = 40;
sl = 250;
ml = 200;
hl = 150;

var
h,m,s: integer;
i:integer;
x,y: integer;
g: real;

begin
setwindowsize(w,w);
read(h,m,s);
h := h mod 12;
setpenwidth(2);
circle(w div 2, w div 2, r);
for i := 0 to 59 do
begin
g := (i*360/60 - 90) * pi/180;
if i mod 12 = 0 then
begin
x := w div 2 + round((r - dl) * cos(g));
y := w div 2 + round((r - dl) * sin(g));
end
else
begin
x := w div 2 + round((r - dl div 3) * cos(g));
y := w div 2 + round((r - dl div 3) * sin(g));
end;
line(x,y,w div 2 + round(r*cos(g)),w div 2 + round(r*sin(g)))
end;
setbrushcolor(clwhite);  while true do
begin
setpencolor(clwhite);
circle(w div 2, w div 2, sl);
setpencolor(clblack);
   setpenwidth(1);
g := (6*s - 90) * pi/180;
x := w div 2 + round(sl * cos(g));
y := w div 2 + round(sl * sin(g));
line(w div 2, w div 2, x, y);
   setpenwidth(2);
g := ((60*m + s)/10 - 90) * pi/180;
x := w div 2 + round(ml * cos(g));
y := w div 2 + round(ml * sin(g));
line(w div 2, w div 2, x, y);

setpenwidth(3);
g := (360*(60*60*h + 60*m + s)/12/60/60 - 90) * pi/180;
x := w div 2 + round(hl * cos(g));
y := w div 2 + round(hl * sin(g));
line(w div 2, w div 2, x, y);
   s := s + 1;
if s = 60 then
begin
m := m + 1;
s := 0;
end;
if m = 60 then
begin
h := (h + 1) mod 12;
m := 0
end;

sleep(1000)
end;
end.

4,6(11 оценок)

Это интересно:

Образование-и-коммуникации

12.06.2021

Как составить план: секреты планирования на будущее...

Компьютеры-и-электроника

20.11.2020

Как создать простую таблицу стилей CSS с помощью Notepad...

Компьютеры-и-электроника

09.07.2020

Как уничтожить жесткий диск: советы и рекомендации...

13.09.2021