Объясните что нужно сделать и как?? 9 класс 1)Подберите компьютер, используя конспект к уроку и официальный сайт «Конфигуратор компьютера» https://edelws.ru/constructor/ 2)Создайте модель выбранных комплектующих в электронной таблице и занесите выбранные данные. 3)Используя формулы, создайте модель автоматически вычисляющую общую стоимость компьютера. Дескриптор к заданию: 1)Подбирает комплектующие ПК в зависимости от назначения компьютера 2)Использует данные из официальных онлайн магазинов 3)Создают табличную модель расчета комплектующих ПК 4)Заносит в таблицу выбранные комплектующие и указывает их цены, характеристики 5)Используют формулы для вычисления общей стоимости компьютера Образец
Var a, b: array[1..110000] of integer; i, n, j, cnt: integer; begin
Readln(n); for i := 1 to n do Read(a[i]); Write(a[1], ' '); for i := 2 to n - 1 do Begin if a[i] > 0 then Write(a[i], ' '); i if (a[i] < 0) and (a[i - 1] > 0) and (cnt = 0) then for j := i to n do begin if (j = n) and (a[j] < 0) then begin cnt:= 0; break; end; if a[j] > 0 then break else cnt:= cnt + 1; end; if cnt = 0 then Write(a[i], ' '); if cnt > 0 then cnt := cnt - 1; end; Write(a[n]); end.
Or - "ИЛИ". Если одно из условий верно, то и все выражение принимает истину [ 0 or 1 = 1 ; 1 or 0 = 1; 1 or 1 = 0, 0 or 0 = 0], где 1 - истина, а 0 - ложь у тебя условие If(k>9) or (k<14) then условие k > 9 выполняется, а значит и все выражение верно Нужно заменить "OR" на "AND" оператор "И". [ 1 and 1 = 1 ] при всех остальных - ложь
Вот код
var k: integer; begin readln(k); if k > 17 then Writeln('ваша оценка 5. Молодец!'); if (k > 13) and (k < 18) then Writeln('ваша оценка 4.'); if(k > 9) and (k < 14) then Writeln('ваша оценка 3.'); if k < 10 then Writeln('ваша оценка 2.'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
