Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, проверяет ответ и выводит сообщение "Правильно!"
10-11 класс
|
или "Вы ошиблись" и правильный результат
program ProgramXY;
const n=100;
var inputText : integer;
begin Randomize;
var x := Random(n) + 1;
var y := Random(n) + 1;
var z := x - y;
writeln('Решите пример: ', x, ' - ', y, ' = ');
readln(inputText);
if inputText = z then writeln('Правильно!')
else writeln('Вы ошиблись! Правильный ответ: ', z)
end.
Где-то так это выглядит на Паскале. Ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.
Другие вопросы из категории
используются 4)необходимо защитить данные от просмотра 5)файлы надо передать через интернет
выпить ученики, если они сдают пустые бутылки и на вырученные деньги и на деньги, оставшиеся от предыдущей покупки, покупают бутылки с соком. (На Паскале)
(-2;1). Ход состоит в том, что игрок перемещает фишку из точки с координатами (х;у) в одну из трех точек (х+4;у); (х;у+3); (х+2;у+2). Выигрывает игрок, после хода которого расстояние по прямой от фишки до точки с координатами (0;0) не меньше 9 единиц. Кто выигрывает при безошибочной игре обоих игроков – игрок, делающий первый ход, или игрок, делающий второй ход? Каким должен быть первый ход выигрывающего игрока? Ответ обоснуйте.
Читайте также
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
представлен вид экрана во время работы программы, который вам нужно реализовать:
Таблица квадратов
-----------------------------
Число Квадрат
-----------------------------
1 1
2 4
и т.д.
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
program sg3;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('Простое')
else writeln('Составное');
readln;
end.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0