Помогите решить задачи в Паскале

[VLAD!@$@$%$%]

Помогите решить задачи в Паскале

1)Решить уровнение виду АХ=В ПРИ етом расмотреть случаи А=0 и А<>0
2)Составить программу вичисления сумми всех парних чисел от 1 до 50 (без масивов, через цикл "while:tehnari_ru_837:")

 

[VLAD!@$@$%$%]

знаю что задачек легче нет но я в информатике и тем более в програмировании нечего почти не знаю

 

[Vladimir_S]

А что такое "парные числа"?

 

[VLAD!@$@$%$%]

Четние числа

 

[Vladimir_S]

Четние числа

Ну тогда-то что!

1)Решить уровнение виду АХ=В ПРИ етом расмотреть случаи А=0 и А<>0

Var
 A,B,X:real;
Begin
 Write('A= ');
 Readln(A);
 Write('B= ');
 Readln(B);
 Writeln('Result:');
 If (A=0) and (B=0) then Writeln('Any value')
 else
 If (A=0) and (B<>0) then Writeln('No solution')
 else Write ('X= ',B/A:0:5);
 Readln
End.

2)Составить программу вичисления сумми всех парних чисел от 1 до 50

Var
 i:Byte;
 Sum:Word;
Begin
 Sum:=0;
 For i:=1 to 25 do
  Sum:=Sum+2*i;
 Writeln('Sum= ',Sum);
 Readln
End.

 

[VLAD!@$@$%$%]

а 2 програму можно через цикл While без масивов ми их както еще не учили и ето будет не много подозрительно

 

[Vladimir_S]

а 2 програму можно через цикл While без масивов ми их както еще не учили и ето будет не много подозрительно

А где Вы там массивы узрели? Ладно, через While, так через While:

Var
 i:Byte;
 Sum:Word;
Begin
 Sum:=0;
 i:=0;
 While i<50 do
  begin
   i:=i+2;
   Sum:=Sum+i;
  end;
 Writeln('Sum= ',Sum);
 Readln
End.

 

[VLAD!@$@$%$%]

а можете еще написать что каждая строчка означает только в 2 программе

 

[Vladimir_S]

а можете еще написать что каждая строчка означает только в 2 программе

Извольте:

Var [COLOR=Red][B]{заголовок раздела объявления переменных}[/B][/COLOR]
 i:Byte; [COLOR=Red][B]{счетчик цикла}[/B][/COLOR]     
 Sum:Word; [COLOR=Red][B]{искомая сумма}[/B][/COLOR]
Begin [COLOR=Red][B]{начало тела программы}[/B][/COLOR]
 Sum:=0; [COLOR=Red][B]{задание исходного нулевого значения сумме}[/B][/COLOR]
 i:=0; [COLOR=Red][B]{задание исходного нулевого значения счетчику}[/B][/COLOR]
 While i<50 do [COLOR=Red][B]{объявление цикла; он прервется, когда значение счетчика станет равным 50}[/B][/COLOR]
  begin [COLOR=Red][B]{начало цикла}[/B][/COLOR]
   i:=i+2; [COLOR=Red][B]{увеличение значение счетчика на 2; таким образом, i последовательно принимает значения 0, 2, 4, 6, 8 и т.д. до 50}[/B][/COLOR]
   Sum:=Sum+i; [COLOR=Red][B]{к сумме прибавляются вышеуказанные значения счетчика}[/B][/COLOR]
  end; [COLOR=Red][B]{конец цикла}[/B][/COLOR]
 Writeln('Sum= ',Sum); [COLOR=Red][B]{вывод результата (значения суммы) на экран}[/B][/COLOR]
 Readln [COLOR=Red][B]{приостановка работы программы, чтобы можно было полученный результат рассмотреть}[/B][/COLOR]
End. [COLOR=Red][B]{конец тела программы}[/B][/COLOR]

 

[VLAD!@$@$%$%]

а поч в строчках
i:Byte;
Sum:Word;
нета там типа real или integer а именно byte и word?

 

[Vladimir_S]

а поч в строчках
i:Byte;
Sum:Word;
нета там типа real или integer а именно byte и word?

"Real" тут вообще ровно ни при чем - работа идёт исключительно с целыми числами. Почему эти типы выбраны - а почему бы и нет? По типам целых чисел см. http://www.tehnari.ru/f41/t87459/#post897771.