program p 1 var i k integer begin
program p 1; var i, k: integer; begin for i: =1 to 10 do begin k: =2*i; writeln(‘ 2*', i, '=', k); end; readln; end. 2* i = k НВК "Школа-гімназія "Сихівська"
program p 2; var i, k, a: integer; begin write('Vvedit chyslo'); readln(a); for i: =1 to 10 do begin k: =a*i; writeln(a, '*', i, '=', k); end; readln; end. a *i =k НВК "Школа-гімназія "Сихівська"
program p 3; var i, k, a: integer; begin for a: =1 to 9 do begin for i: =1 to 10 do begin k: =a*i; writeln(a, '*', i, '=', k); end; readln; end. НВК "Школа-гімназія "Сихівська"
program p 4; var i: integer; k: real; begin for i: =1 to 10 do begin k: =1. 75*i; writeln(i, ' osib=', k: 5: 2, 'grn'); end; readln; end. НВК "Школа-гімназія "Сихівська"
program p 5; var a, b, i: integer; begin for i: =10 to 99 do begin a: =i div 10; b: =i mod 10; if a<>b then write (i, ‘ ‘); end; readln; end. НВК "Школа-гімназія "Сихівська"
program p 6; var a, b, c, i: integer; begin for i: =100 to 999 do begin a: =i div 100; c: =i mod 10; b: =i div 10 mod 10; if (a<>b)and(b<>c)and(a<>c) then write (i, ‘ ‘); end; readln; end. НВК "Школа-гімназія "Сихівська"
program p 7; uses crt; var a, b, c: integer; i: longint; begin for a: =0 to 23 do begin for b: =0 to 59 do begin writeln(a, ': ', b); for i: =1 to 3000000 do; if keypressed then exit; end; readln; end. НВК "Школа-гімназія "Сихівська"
program p 7; uses crt; var a, b, c: integer; i: longint; begin for a: =0 to 23 do begin for b: =0 to 59 do begin for c: =0 to 59 do begin writeln(a, ': ', b, ': ', c); for i: =1 to 30000 do; if keypressed then exit; end; readln; end. НВК "Школа-гімназія "Сихівська"
- Slides: 17