Составьте программу, которая будет будет просить человека ввести имеющуюся у него сумму денег? присваивать введенные данные переменной sum, а потом выводить три варианта ответа в зависимости отимеющейся у посетителя суммы. При этом система выводит следующие варианты ответов в зависимости отвведенной суммы:1. если сумма составляет менее 500 тенге - "У Вас недостаточно денег на билет."2. от 500 до 5000 - "У Вас хватает денег на просмотр фильма в нашем кинотеатре." З. свыше 5000 - "Вы можетеСмотреть кино весь день."Прикрепите написанную программу в виде файла в одном из следующих форматов: doc, jpeg, bmp, jpg.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
и если можно, объясните как это решается
Автор: julianikaleksandrova
Зачем нужна сноска? нужен полный ответ
Автор: tenvalerij
написать программу (Язык программирования Pascal)
Автор: info126
Найти сумму всех четных натуральных чисел от 2-х до n
Автор: itartdesignprof
Если человек находится в чс группы (сообщества), то может ли он просматривать записи группы?
Автор: Демидова Красноцветов
Напишите программу, вычисляющую значение функции у, если х>0, то у=10, если х<0, то у=-10
Автор: Станиславович ыфвыв
Видео или фотокамера в реальном времени фиксировать изображение, использование
Автор: Obukhov-Buriko
begin
var n:=ReadInteger('Число строк (столбцов) матрицы:');
Writeln('Введите элементы матрицы построчно');
var a:array[,] of integer;
SetLength(a,n,n);
for var i:=0 to n-1 do
for var j:=0 to n-1 do Read(a[i,j]);
var s:=0;
for var i:=0 to n-1 do s+=a[i,i];
Writeln('Сумма элементов главной диагонали равна ',s)
end.
Тестовое решение
Число строк (столбцов) матрицы: 3
Введите элементы матрицы построчно
1 6 3
8 4 9
0 1 7
Сумма элементов главной диагонали равна 12