// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadLnString('1: ');
var s2:=ReadLnString('2: ');
s1.ToLower.Intersect(s2.ToLower).OrderBy(t->t).Println(',')
end.
balance = int(input("Счет - "))
percent = int(input("% - "))
years = 0
print(balance)
while balance < 50000:
years += 1
balance = balance + balance * percent / 100
print(years)
<span>данные записанные в одну строку таблицы -это-</span>основы
Program A;
var x,y:integer;
begin writeln('Введите два числа:'); readln(x); readln(y); if x > y then writeln(x * x) else writeln(y*y);end.
1. 80000 бит
2. 1 920 000 бит
3. 1,5 мегабайт