Алгоритмізація та програмування у Pascal ABC Послідовність команд, за до яких записують алгоритм розв'язання задачі це - *



сценарій

проект

програма

текст

Заголовок програми починається словом *



readln

program

begin

var

Виконувана частина починається словом *



var

program

begin

writeln

Виберіть оператори вводу. Оберіть декілька варіантів *



writeln

read

write

readln

Виберіть оператори виводу. Оберіть декілька варіантів *



readln

read

writeln

:=

write

Виберіть правильний варіант запису *



S=a*b

S:=ab

​

хотелось бы напомнить, что с=12, f=15, а=10.

имеем:

20с7f_16 = 2·16⁴ + 0·16³ + 12·16² + 7·16¹ + 15·16⁰ = 2·65536 + 12·256 + 7·16 + 15 = 131072 + 3072 + 112 + 15 = 134271_10(f3ao6/4)_16 = (15·16⁴ + 3·16³ + 10·16² + 0·16¹ + 6·16⁰)/4 = (15·65536 + 3·4096 + 10·256 + 6)/4 = (983040 + 12288 + 2560 + 6)/4 = 997894/4 = 249473,5 _10

(1 + 2):   3   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.