Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
1000байт-1Кбайт-10Мбайт-1Гбайт
Вклад 10 000 тыс 1 000 тыс
Банк А 13 000 тыс 1 300 тыс
Банк Б 12 000 тыс 1 200 тыс
Количество прибыли зависит от величины вклада, а какой банк выгоднее - не зависит.
За какое бы количество времени ни пользовались вкладом, соотношение прибыли к году и к вкладу остается прежним.
Тебе нужно Program_7_stud
program6_stud-подобная задача
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
1) <u>Определение теплоты</u> <u>
</u><u />Var q,i,rt:real;
Begin
Write('i='); readln(i);
Write('Rt='); readln(rt);
q:=(i*i)*rt;
Writeln('Q=',q);
End.
2) <u>Площадь треугольника</u>
Var s,p,a,b,c:real;
Begin
Write('A='); readln(a);
Write('B='); readln(b);
Write('C='); readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
s:=sqrt(s);
Writeln('S=',s);
End.
3)<u>Массив</u>
Var mas:array[1500..3700] of integer;
i,n:integer;
Begin
for i:=1500 to 3700 do begin
mas[i]:=i;
if (mas[i] mod 206 = 0) then writeln(mas[i]);
end;
end.