За до виразів можна виконувати різні дії, наприклад: Обчислювати значення, відсутні безпосередньо в даних. Можна обчислити значення в полях таблиць і запитів, а також в елементах керування на формах чи у звітах і тд Визначити умови запиту, щоб обмежити результати бажаною підмножиною.
var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.
var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.
Ответ дал: Гость
program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');
Популярные вопросы