Решить в pascal ! составить программу, решающую - вопрос №5446802 от Кауру 22.07.2020 03:35

Question

Информатика: Решить в pascal ! составить программу, решающую следующую : клиент внес в банк r рублей. каждый месяц эта сумма увеличивается на w рублей. сколько будет у клиента денег через три месяца, через полгода, через год? ниже представлен рекомендуемый вид экрана во время работы программы: введите исходные данные: величина вклада (руб.): 10000 ежемесячная величина дохода (руб) 165 сумма вклада по окончании трех месяцев: 10495 руб. сумма вклада по окончании шести месяцев: 10990 руб. сумма вклада по окончании

Кауру · Answer

Var r,w,s:integer;beginwriteln( Введите исходные данные: );write( Величина вклада (руб.): );readln(r);write( Ежемесячная величина дохода (руб) );readln(w);s:=r+3*w;write( Сумма вклада по окончании трех месяцев: ,s, руб. );s:=r+6*w;write( Сумма вклада по окончании шести месяцев: ,s, руб. );s:=r+12*w;write( Сумма вклада по окончании года: ,s, руб. );end....