сервис вопросов и ответовСоставить блок-схему и написать программу Паскаль.
10-11 класс|
|
"Мужик и чёрт".
помогите, пожааалуйста!
Прикрепленные изображения
Dildoka
25 нояб. 2014 г., 5:57:48 (9 лет назад)
Dashutakovalev1
25 нояб. 2014 г., 8:43:18 (9 лет назад)
var b,a,c,x:integer;
begin
writeln('Введите капитал мужика');
readln(b);
writeln('Введите капитал черта');
readln(a);
writeln('Введите дань');
readln(c);
x:=0;
repeat
b:=b*2;
b:=b-c;
a:=a-b;
a:=a+c;
x:=x+1;
until (b<0) or (c<0);
writeln(x);
end.
Ответить
Другие вопросы из категории
1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
Читайте также
Даны натуральное число n и последовательность целых чисел а1, а2,…,аn.. Определить количество тех членов последовательности, которые нечетны . Найти
сумму членов последовательности, кратных 11. Составить блок-схему алгоритма, написать программу.
Добрый вечер!
Помогите пожалуйста, нужно составить блок схем и написать программу для вычисления значения следующего выражения:
Очень нужно! Заранее спасибо!
Составить блок-схему и написать программу для решения задачи. Организовать вычисление значения функции y по формуле y=4x+3/x-1 -√2x+9 для любого заданного
значения аргумента x. Учесть вывод сообщения о невозможности вычисления значения функции
Даны натуральное число n и последовательность целых чисел а1, а2,…,аn..Все
положительные элементы уменьшить в 2 раза. Составить блок-схему алгоритма, написать программу
Вы находитесь на странице вопроса "Составить блок-схему и написать программу Паскаль.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.