<span>Черный цвет кодирует соответственно (0,0,0). Все оттенки серого цвета образуются смешиванием трех составляющих одинаковой яркости. Например, при значениях (200,200,200)получается светло-серый цвет, а при значениях (100,100,100) темно-серый. Чем более темный оттенок серого нужно получить, тем меньшее число нужно вводить в каждое текстовое поле.</span>
#include <stdio.h>
int main()
{
char c;
int k=0;
printf("Вводите символы (в конце '.')");
do {
scanf("%c",&c);
if ((c>='0')&&(c<='9')) k++;
}
while (c != '.');
printf("k = %d",k);
return 0;
}
Пример:
<span>Вводите символы (в конце '.')
сегодня 18 февраля 2017 г.
k = 6</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
Writeln('No')
else Writeln('Yes')
end.
<u>Пример</u>
35 717 405 225 0
No
mas = float(input('Введите вашу массу в кг: ')) #ввод массы
mas_on_Moon = mas * 0.165 #умножение на 16.5 процента
print("Ваш вес на Луне составляет " + str(mas_on_Moon) + " кг")
for i in range(15):
mas += 1 # увеличивание массы на 1
mas_on_Moon = mas * 0.165
print(str(i+1) + ") Масса на Земле = " + str(mas) + " кг | Масса на Луне = " + str(mas_on_Moon) + " кг")
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.