Вроде так
sum:=0;
while (a>0)
begin
a:=a+0.15*a - b;
sum:=sum+1;
end;
write(sum);
Var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26
Ответ:
алг
нач
цел n,t,m,r,s
ввод n
ввод t
ввод m
ввод r
ввод s
если m*n+r*t=s то вывод "спасибо за покупку" все
если m*n+r*t>s то вывод "доплатите еще" все
если m*n+r*t<s то вывод "возьмите сдачу" все
кон
#include <fstream>
using namespace std;
int main(int argc, char* argv[]){
setlocale(LC_ALL, "rus");<span>
ofstream
fout("cppstudio.txt"); </span><span>
fout << "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" << endl;</span>
int i;
for (i=192;i<=223;i++){<span>
fout << i << " ";</span>
}
fout.close();
return 0;
<span>}</span>
Информация для человека - это знания, получаемые из различных источников.