Гражданин открыл счёт в банке вложив x рублей под y% годовых через сколько лет сумма вклада превысит z рублей напишите программу в чтобы можно было подставить в паскаль

var x,y,z: real;

n: integer;

begin

n: =0;

write('сумма вклада: ');

readln(x);

write('процент головых: ');

readln(y);

write('сумма через n лет: ');

readln(z);

while x< =z do begin

x: =x*(1+y/100);

n: =n+1;

end;

writeln(n);

end.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var s: =readlnstring;   var a: =s.towords('.').select(t-> trim(;   var b: =s.towords(arr('.',' '))           .groupby(t-> t).select(t-> (t.key,t.count))           .where(t-> t[1]> 1).select(t-> t[0]).toarray;   a.cartesian(b,(p,q)-> p.contains(q)? p: '')           .where(t-> t.length> 0).distinct.printlines end. примеры мама мыла полы. маша ела кашу. даша пила молоко. таня мыла полы. мама мыла полы таня мыла полы мама мыла раму. маша ела кашу. даша пила молоко. таня мыла полы. мама мыла раму таня мыла полы

условие или истинно, если хотя бы одно высказывание истинно.

таблица истинности для условия или:

a или b     =     с1           1           11           0           10         1           10         0           0

приставка не означает истину, если высказывание ложно и ложь, если высказывание истинно (то есть она меняет истину и ложь)

его можно понимать как высказывание "первая буква не гласная"

анна

не (первая буква гласная) 0

последняя буква гласная   1

0 или 1 = 1

истина

максим

не (первая буква гласная)   1

последняя буква гласная   0

1 или 0 = 1

истина

татьяна

не (первая буква гласная) 1

последняя буква гласная   1

1 или 1 = 1

истина

егор

не (первая буква гласная) 0

последняя буква гласная   0

0 или 0 = 0

ложь

антон

не (первая буква гласная) 0

последняя буква гласная   0

0 или 0 = 0

ложь