М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
daut2001
daut2001
15.10.2022 22:08 •  Информатика

Являются ли высказываниями следующие предложения (если не являются, то почему):
1. Запиши пример на доске.
2. 2*х+3*у (*-знак умножения)
3. 29-х<40
4. Москва расположена в Европейской части России.
5. Сирень – самый красивый кустарник.
6. 34*2>70
7. Сколько стоит тетрадь?
9. Красота мир.

👇
Открыть все ответы
Ответ:
juliati88tan
juliati88tan
15.10.2022
//вот так компилируется без ошибок

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.
4,5(83 оценок)
Ответ:
anastasia559
anastasia559
15.10.2022
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
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.     
4,7(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ