3 4. Дана таблица Кол-во с D Цена общая стоимость 245 2 1200 1 Продукты 2 Майонез 3 Сыр 4 Творог 5 Кефир 6 1 750 230 3 ИТОГО 7 Какую формулу пулсно ввести в ячейку D2 для подсчета общей стоимости Какую формулу нужно ввести для подсчета итоговой суммы в ячейке D6
var w1, w2: string; m: set of char; c: char; i: integer;
begin Writeln('Введите первое "слово"'); Readln(w1); Writeln('Введите второе "слово"'); Readln(w2); m := []; w1 := LowerCase(w1);w2 := LowerCase(w2); for i := 1 to length(w1) do if w1[i] in gl then Include(m, w1[i]); for i := 1 to length(w2) do if w2[i] in m then Exclude(m, w2[i]); Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:'); foreach c in m do Write(c, ' '); Writeln end.
Тестовое решение: Введите первое "слово" Дай, Джим, на счастье лапу мне! Введите второе "слово" Сергей Есенин Гласные, присутствующие в первом слове и отсутствующие во втором: а у
Программа шифровки: DATA "ауоыэяюёие" DATA "бвгджзклмнпрстфхцчшщ" DATA "ъйь" DIM s10 AS STRING, s20 AS STRING, s3 AS STRING DIM i AS INTEGER DIM s AS STRING, t AS STRING CLS READ s10, s20, s3 RANDOMIZE TIMER INPUT "Введите фразу: ", s t = "" FOR i = 1 TO LEN(s) t = t + MID$(s, i, 1) t = t + MID$(s10, INT(10 * RND + 1), 1) t = t + MID$(s20, INT(20 * RND + 1), 1) t = t + MID$(s3, INT(3 * RND + 1), 1) NEXT i PRINT t END
Программа дешифровки: DIM s AS STRING, t AS STRING, i AS INTEGER CLS INPUT "Введите фразу: ", s t = "" FOR i = 1 TO LEN(s) STEP 4 t = t + MID$(s, i, 1) NEXT i PRINT t END
gl = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
var
w1, w2: string;
m: set of char;
c: char;
i: integer;
begin
Writeln('Введите первое "слово"');
Readln(w1);
Writeln('Введите второе "слово"');
Readln(w2);
m := [];
w1 := LowerCase(w1);w2 := LowerCase(w2);
for i := 1 to length(w1) do
if w1[i] in gl then Include(m, w1[i]);
for i := 1 to length(w2) do
if w2[i] in m then Exclude(m, w2[i]);
Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:');
foreach c in m do Write(c, ' ');
Writeln
end.
Тестовое решение:
Введите первое "слово"
Дай, Джим, на счастье лапу мне!
Введите второе "слово"
Сергей Есенин
Гласные, присутствующие в первом слове и отсутствующие во втором:
а у