Помогите пожалуйста с задачами по Pascal

[yakimchukav]

Уважаемые программисты, друзья, помогите мне с задачами, пожалуйста, для допуска к экзамену
Вот задачи:
1)Ввести число. Определить является ли оно степенью хорошо (4).
2)Последовательно вводятся числа, найти их произведение. Ввод остановить после первого нуля.
3)Заполнить массив следующими значениями и вывести в виде таблицы.
10 9 .8 .. 1
10 9 .8 .. 1
10 9 .8 .. 1
10 9 .8 .. 1
4)Заполнить массив 3 на 4 случайными значениями. Найти минимальное значение для каждой строки.
5)Все элементы массива, сумма индексов которых чётна, заменить -1. Массив вывести.
6) Ввести три числа - номера месяцев. Вывести кол-во дней в каждом месяце. Использовать свою процедурузамены номера месяца на кол-во дней в нём.

Пожалуйста сделайте эти задачки. Я вам буду очень благодарен!

[NSvirus]

1)

...
readln(number);
a:=4;
 repeat
   if (number mod a)=0 then writeln('DA!!!');
   a:=a*a;
 until a>number;
...

2)

a:=1;
while number=0 do
 begin
  readln(number) ;
  a:=a*number;
 end;

3)

for i:=1 to 10 do
 for j:=1 to 10 do
   mas[i,j]:=11-j;
for i:=1 to 10 do
begin
 for j:=1 to 10 do
 write(mas[i,j],' ');
 writeln;
end;

4)

randomize;
for i:=1 to 3 do
 for j:=1 to 4 do
  mas[i,j]:=random(30);
for i:=1 to 3 do
begin
 min:=mas[i,1];
 for j:=2 to 4 do
  if mas[i,j]<min then min:=mas[i,j];
  writeln('minimum v stroke ',i,' -',min)
end;

[Hacker19_90]

5)

for i := 1 to n do
        for j := 1 to m do
            if ((i + j) mod 2) = 0 then Massiv[i,j] := -1;

[yakimchukav]

Вот спасибо дружище!

[yakimchukav]

Определить количество пустых строк в файле

Var
F1:Text;
K:Integer;
S:String;
Begin
Assign(F1,'C:\FILE.TXT');
Reset(F1);
K:=0;
While Not(Eof(F1)) Do
Begin
Readln(F1,S);
K:=K+1;
Writeln(S);
End;
Writeln(‘kol-vo=’,K);
Close(F1);
End.


В конец существующего файла записать 3 строки, которые вводятся с клавиатуры

Var
F1:Text;
I:Integer;
S:String;
Begin
Assign(F1,'C:\FILE.TXT');
Rewrite(F1);
Append(F1);
For I:=1 To 3 Do
Begin
Readln(S);
Writeln(F1,S);
End;
Close(F1);
End.

[yakimchukav]

Друзья программисты, как решить вот эту задачу

с помощью Операторов While, Repeat, Until

В задании написан только один пример
Нужно сделать чуть чуть, главное правильно

[Hacker19_90]

А до кех пор высчитывать??? Пока не надоест????
Выложите полное задание!!!

[Hacker19_90]

Ну по поводу первой!!!!
Если ищешь пустые строки, то проверяй их длину!!!! А так ты считываешь всё подрят!!!!
А по поводу второй!!!! Процедурой Rewrite ты перезаписываешь весь файл!!! так что используй только Append

[yakimchukav]

зад1.jpg

зад2.jpg

[Hacker19_90]

По поводу ряда

program forum;
uses crt;
var
    Toch, i, f, f1, factor,  k: real;
begin
    clrscr;
    Writeln ('Введите точность:');
    Readln (Toch);
    f := 0;
    factor := 1;
    i := 1;
    k := 0.1;
    f1 := sqr(k)/factor;
    repeat
        f := f + f1;
        inc(i);
        factor := factor * i;
        k := (k + 0.1);
        f1 := sqr(k)/factor;
    until (abs(f1) < Toch);
    Writeln ('Сумма ряда равна', f);
    ReadKey;
end.