tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести число а. затем
Ввести число а. затем вводить последовательно числа (используя одну переменную x) и уменьшать a на число x. вводить числа, пока a не станет меньше x. на экран выдать a и x. решите
yanavyskubina
3 22.07.2019 18:40
3
Ответы
martsenyuk30
03.10.2020 11:02
Var a,x:integer;
begin
write('A = '); readln(a);
repeat
write('X = '); readln(x);
a:=a-x;
until a<x;
writeln('A = ',a,' X = ',x);
end.
Пример:
A = 35
X = 16
X = 8
X = 23
A = -12 X = 23
ПОКАЗАТЬ ОТВЕТЫ
liliya134
03.10.2020 11:02
Var a,x:real;
begin
readln(a);
readln(x);
while a>=x do
begin
a:=a-x;
readln(x);
end;
write('a=',a,' x=',x)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Kramar1
12.05.2020 11:22
Пользователь с клавиатуры вводит натуральное число N. Программа должна посчитать квадраты всех натуральных чисел от 1 до введенного числа N включительно.с использованием...
алишер128
12.05.2020 11:22
Рассмотрите блок-схему. Запишите данный алгоритм на языке программирования Lazarus. ...
transformer56
15.03.2019 20:50
Есть целое число 10 подсчитать сумму всех нечетных чисел...
elyaminaewap06uze
15.03.2019 20:49
Скажите, где тут ошибка? f= {2,если х 5 f={x,если х ≤ 5 program var x, f: real; red ln (x) if: x 5 then f: =2 elsef: =x, write ln (f); end...
Brauberg898117
15.03.2019 20:47
Соч по информатике 6 класс 3 четверть 20 ...
ssssss22
13.07.2019 11:00
Дано трёхзначное число. найти в нём максимальную цифру. 20 паскаль...
madisha12
13.07.2019 11:00
Черно-белое растровое изображение имеет размер 20х20 точек. какой информационный объем имеет изображение. ответ запишите в байтах...
bogdanshik007
13.07.2019 10:50
Что такое: проприетарные лицензии копилефт электронная подпись...
Erekcia
31.05.2019 22:10
1.расскажите о наглядных формах представления информации ? 2.с какими схемами вам приходилось работать на уроках: , языка,биологии? 3. представте следующую информацию...
Bmadjdraw
04.10.2019 09:50
Составьте программу, которая формирует массив d из 14 случайных чисел, принадлежащих промежутку от -7 до 25 и заменяет числа, кратные 5ти на 0 ♡...
Популярные вопросы
Мне уменьши 8 см в 4 раза уменьши 4 см в 4 раза уменьши 12 см...
3
Решить вкладчик положил в банк 26000 р под 8 % годовых какая...
3
Длина прямоугольника 70 см,а его ширина составляет 70 процентов...
3
Высота остроугольного треугольника abc образует со сторонами...
3
Первые 2ч турист шёл со скоростью 5км в час,затем ещё 3 часа...
2
Укажите координаты точки, принадлежащей прямой у=7х+2 полное...
3
:) 1)решите уравнение: а)5b = -85,6 - 3b, б)5/6b - 5/9b + 1=1/2b...
3
Сыну 10 лет. его возраст составляет две седьмых возраста отца....
2
)решите уравнение: 5x+4=3x-6 заранее )...
2
Расскажите мне о золушке. мне надо это ....
2
begin
write('A = '); readln(a);
repeat
write('X = '); readln(x);
a:=a-x;
until a<x;
writeln('A = ',a,' X = ',x);
end.
Пример:
A = 35
X = 16
X = 8
X = 23
A = -12 X = 23
begin
readln(a);
readln(x);
while a>=x do
begin
a:=a-x;
readln(x);
end;
write('a=',a,' x=',x)
end.