Террария не запускается - появляется заставка, музыка, потом вылетает, не загружая главное меню, и появляется окно ошибки (в закрепе ниже). DirectX, Visual C++ 2015-2019, Microsoft XNA Framework Redisrtibutable 4.0 Refresh, последние версии драйверов на видеокарту - всё установлено. Операционная система - Windows 10. Скачивал пиратку отсюда: https://s1.torrents-igruha.org/1023-terraria-1.4-pc.html
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :) program Project1; var TotalA, TotalB, SoldA, SoldB : integer; priceA, priceB, sum: real; begin Write(' Введите цену товара "А":'); Readln(priceA); Write(' Введите количество товара "А" в начале рабочего дня:'); Readln(TotalA); Write(' Введите количество проданного товара "А":'); Readln(SoldA); Write(' Введите цену товара "Б":'); Readln(priceB); Write(' Введите количество товара "Б" в начале рабочего дня:'); Readln(TotalB); Write(' Введите количество проданного товара "Б":'); Readln(SoldB); sum:= ((priceA*SoldA)+(priceB*SoldB)); writeln('Выручка от продажи двух товаров за день:', sum:5:2); readln; end.
uses crt; var k:integer; n:integer; begin clrscr; k:=0; writeln('Тест по теме "Циклы"'); writeln('Вопрос 1. Алгоритм называют циклическим, >'); writeln('если в нем:'); writeln('1)Реализуется многократно повторяющаяся'); writeln(' последовательность действий'); writeln('2)Используются повторяющиеся праметры'); writeln('3)Много раз используются одни и те же операторы'); writeln('4)Используются команда выбора');write('Введите номер правильного ответа:'); read(n); if n=1 then k:=k+1; writeln('Вопрос 2. Сколько раз будет выполнятся цикл,<'); writeln('если начальное значение параметра -6'); writeln('конечное значение 6,'); writeln('шаг изменения параметра равен 3'); writeln('1)6 раз'); writeln('2)5 раз'); writeln('3)4 раз'); writeln('4) Не выполнится ни разу'); write('Введите номер правильного ответа:'); read(n); if n=2 then k:=k+1; case k of 1,2:writeln('Плохо'); 3: writeln('Удовлетворительно'); 4: writeln('Хорошо'); 5: writeln('Отлично'); end; readkey; end.
Объяснение:
У меня та же проблема, просто скачай с другого сайта