Данная программа написана для Pascal:

var s:string;
i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.

0 0

3 года назад

Определите результат работы программы А:=-6; В:=-5; А:=А+2*В; В:=А; Writeln (A,B)

Davbic009

А:=-6;
В:=-5;
А:=-6+2*(-5)=-16;
В:=-16;
Ответ: -16-16

0 0

4 года назад

Укажи истинные высказывания.а) синий - значение свойства Цвет.б) кислый- значение свойства ЦВЕТ. в) зеленый - значение свойства

Mariiiiia

А,г,е три ответа,это точно

0 0

4 года назад

Автомат получает на вход трехзначное десятичное число по полученному числу строится новое десятичное число по следующим правилам

JaneAlexis [21]

1} 136 - не может получиться (если это 13 и 6, то первая сумма больше второй; а если это 1 и 36, то 36 нельзя получить как сумму 2-х цифр)

2} 712 - может получиться (например для числа 257)

3} 215 - не может получиться (если это 21 и 5, то первая сумма больше второй; если это 2 и 15, значит средняя цифра должна быть <=2, но тогда нельзя получить 15 как сумму средней и младшей цифр)

4} 10 - не может получиться (первая сумма больше второй)

5} 621 - не может получиться (21 нельзя получить как сумму 2-х цифр)

6} 619 - не может получиться (19 нельзя получить как сумму 2-х цифр)

Ответ: 1

0 0

3 года назад