Целые или вещественные числа (real или integer)
возвращаемое значение в случае, если присутствует деление или аргумент-вещественное число, может быть только вещественным.
Например:
y=ax+b
если a, x, b - целые, то у может быть как целым, так и вещественным
если а или х или b вещественное, то у только вещественное
или
у=а/х
а и х - могут быть как целыми так и вещественными
у - в любом случае вещественное число
1) Выйдешь на рабочий стол
2) Нажимаешь правую сторону мышки
3) Выбираешь создать
4) Выбираешь что нужно
5) Даешь имя
Var
s, res: string;
k, i, j: integer;
c: char;
begin
read(s);
s := s + chr(10);
for i := 1 to length(s) do
if s[i] = c then
k := k + 1
else begin
if k <= 2 then
for j := 1 to k do
res := res + c
else
res := res + '^' + inttostr(k) + c;
c := s[i];
k := 1;
end;
writeln(res);
end.
1) Количество и цена товаров кажого типа
2) Цена покупки, данное количество денег
3) Время начала и конца фильма
4) Высота и основание или три стороны
5) Масса кирпича, высота дома
6) Потребленная энергия (её количество), цена за 1 у. е.
7) Перевод каждого русского слова на итальянский, а так же правила грамматики.
8) Перевод каждого итальянского слова на русский, а так же правила грамматики.
Вот такие есть:
.txt, .rtf, .doc, .docs