1) var k:integer; begin for k:=1 to 5 do write(i*2:4); readln end.
2) begin writeln((10+15)*(15-10+1)/2); readln end. или begin writeln(75); readln end.
3) var a,n:integer; begin readln(n,a); if n mod a = 0 then writeln('делится нацело') else writeln('не делится нацело'); readln end.
4) var n:integer; begin readln(n); writeln(trunc((sqrt(4*(n+1)+1)-1)/2+0.9999)); readln end;
1 обычный
2 полужирный
3 курсивный
4 подчёркнутый
5 полужирный и курсивный
6 полужирный и подчёркнутый
7 подчёркнутый и курсивный
8 полужирный и подчёркнутый и курсивный
Если каждого вида по одному то остаётся 15 рыб!
bool переменная может принимать значения true и false - правда и не правда.
Логический тип данных нужен, чтобы программировать различные альтернативные действия.
результат сравнения - bool
1) Если а>0 и b>0, то с=а+b=2+5=7
2) Если a>0 не выполняется и b>0 не выполняется, то с=0