Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
1)
Пока б больше а, {
проверить что при делении на два остаток равен 1, {
б присвоить б минус 1,
вывести б }}
2)
пока б миньше а {
общее присвоить б * счетчик
б присвоить б + 1 }
3)
пока счетчик (введенное число) не равно 0 {
счетчик + 1
выполнять (а = 0, а < счетчик, а присвоить а + 1) {
вывести а }}
Удачи. Надеюсь помог.
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
100 мегабайт = 100.000.000 байт
3.445.801 и теперь сравни
100.000.000 > 3.445.801
100 мегабайт больше 3445801
#include <iostream>
using namespace std;
int main()
{
int n;
double t = 1;
cout << "input n: ";
cin >> n;
for (int i = 1; i <= n; i++) {
t = t * (((2 * i) - 1)) / i;
}
cout << t << endl;
}
<u>Проверка:</u>
1/1 * (3/2) * (5/3) = 2.5
1/1 * (3/2) * (5/3) * (7/4) * (9/5) = 7.87500