Помогите написать программу и составить блок-схему

[OMLeTka]

Помогите написать программу и составить блок-схему

написать программу и составить блок-схему
Ввести два числа. Из большего числа вычесть 100, а меньшее удвоить. На печать выдать произведение полученных чисел.

 

[OMLeTka]

народ кто в этом разбирается,ну помогите! не всем дано))) а нужно очень!

 

[Vladimir_S]

не всем дано

Это точно! Нам здесь - не дано. Во всяком случае, до тех пор, пока Вы не раскроете самую заветную тайну - Тайну Языка Программирования, на котором должно быть выполнено задание. Но - держитесь. Даже под пытками. И пусть эта тайна таковой и останется во веки вечные.

 

[OMLeTka]

ой забыла ссори. девушкам вообще программирование тяженько дается) без пыток выяснила,что на языке паскаля. :tehnari_ru_942:

 

[Vladimir_S]

ой забыла ссори. девушкам вообще программирование тяженько дается) без пыток выяснила,что на языке паскаля. :tehnari_ru_942:

Это, конечно, было безумно сложно. Но я справился.

Var
 a,b:real;
Begin
 Readln(a,b);
 if a>b then
  writeln((a-100)*(2*b):0:3)
 else
  writeln((b-100)*(2*a):0:3);
 Readln
End.

Блок-схемами, извините, не занимаюсь.

 

[OMLeTka]

Сипасибо Вам большое)