Уисполнителя калькулятор две команды : 1. прибавь 1. 2. прибавь 2. первая из них увеличивает число на - id332995720200713 от sasha96679 13.07.2020 05:51

Question

Информатика: Уисполнителя калькулятор две команды : 1. прибавь 1. 2. прибавь 2. первая из них увеличивает число на экране на 1 , вторая --на 2. сколько различных чисел можно получить из числа 2 с программы , которая содержит не более 4 команд ? у исполнителя утроитель две команды которым присвоены номера : 1.вычти 1 2. умножь на 3 первая из них уменьшает число на экране на 1, вторая -увеличивает его в три раза . запишите порядок команд в алгоритме получения из числа 6 числа 10 , содержащем не более 5 команд

sasha96679 · Accepted Answer

//Pascal ABC.NET v3.0 сборка 1111

type
ty=set of char;

Const
t:ty=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'];

Var
f:text;
s:string;
i,slo,ks:integer;
k:real;
begin
assign(f,'text.in');
reset(f);
while not Eof(f) do read(f,s);
close(f);
slo:=0;
ks:=0;
for i:=1 to length(s) do
if s[i] in t then inc(slo) else
begin;
k:=k+slo;
inc(ks);
slo:=0;
end;
if s[length(s)] in t then
begin;
inc(ks);
k:=k+slo;
end;
k:=k/ks;
assign(f,'text.out');
rewrite(f);
write(f,k);
close(f);
end.

Пример ввода(text.in):
SIMPLE text
Пример вывода(text.out):
5

MOGZ ответил