Задача 1.Что будет выведено на экран после выполнения фрагмента программы. Какой тип должна иметь переменная a?a:=3;если a>3 то a:=5 иначе a:=1всевывод "a=", aКак изменить программу, чтобы она была работо для любого значения переменной a ? Файл с программой назови zadacha1 и пришли в качестве выполненного домашнего задания.Задача 2.Что будет выведено на экран после выполнения фрагмента программы: Какой тип должны иметь переменные x и y?. x:=0;. если x<>5 то y:=10 . . иначе y:=0. все. вывод "y=", y Как изменить программу, чтобы она была работо для любого значения переменных x и y? Файл с программой назови zadacha2 и пришли в качестве выполненного домашнего задания.
Ответы
3,7,9
37,93,79
973,979,373
Вообще говоря это зависит от формулировки "используя цифры". Из задания непонятно, использовать нужно ВСЕ цифры, или достаточно использования любых из них. Если под словом "используя" понимать, что можно использовать только эти цифры, но при этом использовать все не обязательно, то можно записать 77 и 999.
Всего трёхзначных чисел из цифр 3,7,9 можно записать 3*3*3 (по три возможных цифры на каждую позицию - если цифры на позициях могут повторяться. и 3*3*1, если не могут повторяться.
37,93,79
973,979,373
Вообще говоря это зависит от формулировки "используя цифры". Из задания непонятно, использовать нужно ВСЕ цифры, или достаточно использования любых из них. Если под словом "используя" понимать, что можно использовать только эти цифры, но при этом использовать все не обязательно, то можно записать 77 и 999.
Всего трёхзначных чисел из цифр 3,7,9 можно записать 3*3*3 (по три возможных цифры на каждую позицию - если цифры на позициях могут повторяться. и 3*3*1, если не могут повторяться.
Uses crt;const nmax=100;var a1,a2: array[1..nmax] of integer; n,i,b,k,s: integer;begin randomize; clrscr; repeat write('Введите размер массива n (n in [1..',nmax,']): '); readln(n); write('Введите число B (0<B<100): '); readln(b); until (n in [1..nmax]) and (b in [1..99]); writeln('Массив A1'); for i:=1 to n do begin a1[i]:=random(99); write(a1[i]:4); if a1[i]>b then begin inc(k); a2[k]:=i; s:=s+a1[i]; end; end; writeln; writeln('Среднее элеметов, больших B = ',s/k:0:2); writeln('Массив A2:'); for i:=1 to k do write(a2[i]:4); readln;end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Целые числа имеют тип данных: boolean integer real string
Автор: Svetlana
Компоненты информационной культуры школьника
Автор: Алина1564
Преобразуйте число 121 в двоичную, восмеричную систему счисления с проверкой очень
Автор: shalunovroman
Разработка алгоритма. Урок 1 Сопоставь данные с типами данных.Количество связей: 3
Автор: anadtacia03108988
Напишите код программы на языке Python, которая будет вычислять площадь прямоугольника.
Автор: ValeriyaAleksandr
1дано: k=800*600, i=32 бит, найти iс дано и решением . !
Автор: andruhovich
1. 5=Z(3)
2. a,=Z(3)
3. Z(a)=(b)
4. Z(5)=(8)
5. write(a,'+',b,'=',a+b);
6. write('Z(',a,')=F(',b,')');
7. write('a=',a,';b=',b,';');