Цитата:
Сообщение от VLAD!@$@$%$%
Четние числа
|
Ну тогда-то что!
Цитата:
Сообщение от VLAD!@$@$%$%
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.
Цитата:
Сообщение от VLAD!@$@$%$%
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.