[Turbo Pascal] - задачи про подбрасывание монеты и про определение истины.

[Sent Tools]

В школе начали изучать Паскаль. Сегодня делали лабораторную работу где надо было писать разные проги. Но там в конце были очень сложные (для нас) задачи и учитель сказал, что бы мы их записали и кто найдёт решение, тому поставит оценку. Поможете? Для профи это легко должно быть.

1) Составить программу , определяющую результат подбрасывания монеты -
"орёл - решка", взяв за исходное данное количество подбрасываний N.

2) Составить программу, которая при ответе на вопрос о результате умножения двух чисел (числа нужно вводить) выводило на экран сообщение о правильности ответа.
Пример оформления: Сколько будет 6*8 ?
48
Правильно!

[_-Re@l-_]

Вторая особенно сложная...

Var
     A,B,C:Integer;
Begin
        Write('Введите числа: ');
        Readln(A,B);
        Write(A,'*',B,' = ');
        Readln(C);
        If C = A*B Then Write('Правильно!') Else Write('Неправильно!');
End.

) Составить программу , определяющую результат подбрасывания монеты -
"орёл - решка", взяв за исходное данное количество подбрасываний N.

Поконкретней, я не понял..В смысле, дано количество оборотов монеты вокруг себя?Или что?И какое начальное положение монеты,кстати о птичках?

[Sent Tools]

Сказали, как угодно. Например, что если число бросков чётное, то орел, если нет то решка. Ну или вобще случайным образом, что угодно выдаёт.

[Sent Tools]

Кстати, по статистике 51% - это орёл.

[Sent Tools]

с первой помогите!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!

[_-Re@l-_]

Var
      N:Integer;
Begin
        Write('N = ');
        Readln(N);
        If N mod 2 = 0 Then Write('Орёл') Else Write('Решка');
End.

[Sent Tools]

Спасибо большое, разобрался, как делать.
Ещё вопрос. Встречал задачки типа: "Определить сумму цифр двузначного числа, то есть у числа 45 сумма цифр 9". А как такое выполняется? Если вас не затруднит.

[_-Re@l-_]

Вот так:

Var
     A,S:Integer;
Begin
        Write('Введите число:');
        Readln(A);
        S:=A mod 10+A div 10;
        Write('Сумма равна:',S);
End.

[Onekey]

Сори оффтоп.

Sent Tools какой класс? 10?


Вот код если число может быть Не только двухзначным

function DigitSum(var DS_CHISLO: integer): integer;
var tmp, sum, celoe, drob : integer;
begin
  sum := 0;
  tmp := DS_CHISLO;
    while tmp >= 10 do
      begin
        celoe := tmp div 10;
        drob := tmp mod 10;
        sum := sum + drob;
        tmp := celoe;
      end;
  sum := sum + tmp;
  DigitSum := sum;
end;

ps. код выдрал из проэкта. так что если что подредактируй

[eoln]

Ещё один оффтопик

Сообщение от Sent Tools

Кстати, по статистике 51% - это орёл.

Это, наверное, из-за особой аэродинамической поверхности "орлиной" части монеты?

Сообщение от Onekey

_-Re@l-_ не путайте человека) данный способ будет работать тока с двухзначными числами)

Onekey, в условии сказано именно двузначное число.