Стяжкин
?>

: С кодовой таблицы ASCII декодируйте слова, заданные десятичными и двоичными кодами. 69 78 84 69 82 01001000 01001111 01001101 01000101

Информатика

Ответы

ninakucherowa

ENTER

HOME

Объяснение:

innaglobal21
//вот так компилируется без ошибок

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.
Shipoopi8
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
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.     

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

: С кодовой таблицы ASCII декодируйте слова, заданные десятичными и двоичными кодами. 69 78 84 69 82 01001000 01001111 01001101 01000101
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

aregaa
natapetrova20017
sbn07373
Ter-Pogosov_Vasilevna
chaa140
Veselova
Ахмедшина Трубников1249
Светлана
silviya
Александровна-Васильевна
arch5050
Евгеньевна_Хусинов
kristinmk
ГармаеваЕкатерина1637
ovalenceva77