1 задача.
Дом1-Алексей,столяр.
Дом2-Виктор,хирург.
Дом3-Михаил,окулист.
Дом4-Егор,токарь.
<em>Відповідь:</em>
<em><u>Компьютеры и информационные системы прочно вошли в нашу жизнь и гораздо облегчили ее. Большинство людей, особенно молодежи не смогут представить свою жизнь без этой чудо машины. Еще совсем недавно, наличие компьютера в семье считалось роскошью. В настоящее время все настолько изменилось, что нет ничего удивительного, что в каждой ячейке общества присутствует несколько вычислительных устройств.
</u></em>
<em><u>Что может быть общего между профессией учителя и бухгалтера, адвоката и дизайнера, сотрудника полиции и кассира, врача и звукорежиссера? Изначально, кажется, что эти профессии не имеют ничего общего, так как речь идет о совершенно разных профессиях. Если вспомнить, что мы живем в век глобальной информатизации, то все эти профессии объединяет то, что они используют компьютер.
</u></em>
<em><u>Что же делает одно и то же устройство очень важным для выполнения столь большого количества разных работ? Таким вопросом мы задались и постараемся ответить на него в рамках нашего проекта.
</u></em>
<em><u>Объект исследования: профессии, использующие компьютер в своей деятельности. </u></em>
<em><u>Предмет исследования: для чего и как именно взрослые используют компьютер в своей профессии.
</u></em>
<em><u>Цель: Разработать и создать видео ролик «Компьютер и профессия». Выяснить, как именно компьютер помогает представителям различных профессий.</u></em>
<em><u>Пояснення:</u></em>
<u />
Для фиксированной ставки.
//Pascal
var
A, T, p: real;
n, i: integer;
begin
write('Введите сумму вклада(A) = '); readln(A);
write('Введите процент годовых(T) = '); readln(T);
write('Введите срок(лет)(n) = '); readln(n);
p := A * T / 100;
for i := 1 to n do A := A + p;
writeln('Итоговая сумма с учетом % по вкладам = ', A);
end.
Объяснение:
1.
<u>n</u><u> - исходное число,
</u>
<u>sum</u><u> - сумма четных чисел.</u>
<u />
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.
2.
<u>str </u><u>- строка;
</u>
<u>len </u><u>- количество символов в строке;
</u>
<u>let_s, let_b </u><u>- количество строчных (маленьких) и прописных (больших) букв.</u>
<u />
var
str: string;
i, len, let_b, let_s: byte;
begin
readln(str);
len := length(str);
let_b := 0;
let_s := 0;
for i:=1 to len do
if (str[i] >= 'a') and (str[i] <= 'z') then
let_s := let_s + 1
else
if (str[i] >= 'A') and (str[i] <= 'Z') then
let_b := let_b + 1;
writeln((let_s/len)*100:5:2);
writeln((let_b/len)*100:5:2);
writeln;
end.
