Вбанку відкрито депозит на суму s, терміном на n місяців із ставкою k% річних. визначити, скільки відсотків набіжить за введену кількість місяців.(в формате паскаля )

115

473

Посмотреть ответы 2

Ответы на вопрос:

7077788

Информатика

4,5(67 оценок)

//pascalabc.net var s, k, r: real; n: integer; begin write('s = '); readln(s); write('n = '); readln(n); write('k = '); readln(k); r : = s * n / 12 * k / 100; writeln('ответ: ', r); end.

opd23

Информатика

4,4(98 оценок)

//pascal //файл filetext.txt должен быть в папке с программой const vowels = ['e', 'u', 'i', 'o', 'a', 'y', 'e', 'u', 'i', 'o', 'a', 'y']; var t: text; s: char; n, min, mult, mult2, count, count2: integer; begin assign(t, ' filetext.txt'); reset(t); n : = 0; min : = 0; mult : = 1; count : = 0; while not eof(t) do begin count : = count + 1; while not eoln(t) do begin read(t, s); if s in vowels then inc(n); if s in ['0' .. '9'] then mult : = mult * (ord(s) - 48); end; if n > min then begin min : = n; mult2 : = mult; mult : = 1; count2 : = count; end; readln(t); n : = 0; mult : = 1; end; close(t); write(count2, ' строка. '); write('произведение = ', mult2, '. '); writeln('гласных = ', min); readln; end.