Program razgovor;
uses crt;
var c1,c2,c3:integer;
t1,t2,t3:integer;
begin
Write('Введите цену разговора с первым пунктом, с1= ');
Readln(c1);
Write('Введите цену разговора со вторым пунктом, с2= ');
Readln(c2);
Write('Введите цену разговора с третьим пунктом, с3= ');
Readln(c3);
Write('Введите длительность разговора с первым пунктом, t1= ');
Readln(t1);
Write('Введите длительность разговора со вторым пунктом, t2= ');
Readln(t2);
Write('Введите длительность разговора с третьим пунктом, t3= ');
Readln(t3);
clrscr;
Writeln('Общая стоимость разговора = ',c1*t1+c2*t2+c3*t3)
end.
Переменные: number,a,b,c,max,counter тип целочисленный
<h3><em>Начало</em></h3>
Ввод значения number
a = number целочисленное деление на 100
b = (number целочисленное деление на 10) остаток от деления на 10
c = number остаток от деления на 10
если (a больше b) и (a больше c) то
max = a
если (b больше a) и (b больше c) то
max = b
если (c больше b) и (c больше a) то
max = c
если a = max то
counter = counter + 1
если b = max то
counter = counter + 1
если c = max то
counter = counter + 1
Вывод значения counter
<h3><em>Конец</em></h3>
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
Println('Максимальный=',ReadArrInteger(ReadInteger('n->')).Where(t->t<0).Max)
end.
Пример:
n-> 5
-7 8 -6 4 -1
Максимальный= -1
2 цвета это 1 бит
4 цвета это 2 бита
8 цветов это 3 бита
16 цветов это 4 бита
32 цвета это 5 бит
64 цвета это 6 бит
128 цветов - 7 бит
256 цветов - 8 бит или 1 байт
65536 цветов - 16 бит или 2 байта
16 млн цветов - 24 бит или 3 байта
4 млрд цветов - 32 бита или 4 байта
Нарисуешь, я думаю, ты сама)) В электронном виде не примут ведь? А насчет умений... Он может уметь: летать, считать, разговаривать, рисовать, читать, готовить, убираться, ходить, воспроизводить музыку, заряжать другие эл. устройства и так далее =)