Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой
Смотря на каком диске,а так файл
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.
Var n,i:integer;
y1,y2,yn:real;
begin
readln(n);
y1:=-2;
y2:=1;
writeln(1,' ',y1:5:3);
writeln(2,' ',y2:5:3);
for i:=3 to n do
begin
yn:=1/6*(y2+1/y1);
writeln(i,' ',yn:7:5);
y1:=y2;
y2:=yn;
end;
end.
Пример:
5
<span>1 -2.000
2 1.000
3 0.08333
4 0.18056
5 2.03009</span>
#include <stdio.h>
int main()
{
int days, pay;
printf("Дней в месяце: ");
scanf("%d", &days);
printf("Денег в первый день: ");
scanf("%d", &pay);
for (int i = 1; i < days; i++) {
pay *= 2;
}
printf("В последний день будет выплачено %d рублей\n", pay);
return 0;
}