//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
a:integer;
begin
read(a);
writeln('Произведение десятков: ',(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);
writeln('Произведение единиц: ',(a mod 10)*(a div 10 mod 10)*(a div 100));
readln;
readln;
end.
Пример:
123
Произведение десятков: 6000
Произведение единиц: 6
Монитор, клавиатура, мышь,компьютерный блок питания.
Var a: string;
begin
write ('Введите слово: '); read (a);
writeln ('Именительный падеж: ',copy(a,1,length(a)));
writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');
writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');
writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');
writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');
writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');
end.
Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.
1 цвет=2 цвета=2^1
16 битная система
2^16=65536 цветов
#include <stdio.h>
int main(void) {
char c1,c2;
int k=0;
printf("Вводите символы (в конце ';')\n");
scanf("%c",&c2);
do {
c1 = c2;
scanf("%c",&c2);
if ((c1 == ':')&&(c2 == '=')) k++;
}
while (c2 != ';');
printf("k = %d",k);
return 0;
}
Пример:
<span>Вводите символы (в конце ';')
</span><span>i:=0, s:=0;
</span>k = 2