Var godA, godO, godL,ctar:integer;
begin
wrietln("A");readln(godA);
wrietln("O"); readln(godO);
wrietln("L"); readln(godL);
if (godA<godO) then ctar =<span>godO else ctar = godA;
</span>if (ctar<godL) then write("Сред:",ctar," Стар:",godL ) else
if(godA<godL) then write("Сред:",godL," Стар:",ctar) else
write("Сред:",<span>godA</span>," Стар:",ctar);
end;
4 Кбайта = 2^2 Кбайта = 2^2 * 1024 байт = 2^2 * 2^10 байт = 2^12 байт = 2^12 * 8 бит = 2^12 * 2^3 бит = 2^15 бит
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
P = 0
a = []
for i in range(int(input("Введите кол-во чисел: "))):
n = int(input("Введите каждое число отдельно: "))
a.append(n)
if n > 0:
p += 1
print(a)
print("Положительных: ", p)
НАЧАЛО
вводим число
складываем цифры
Полученное число делиться на 3?
если да то делиться,
если нет не делиться