Al Працюємо самостійно
Визнач, які з наведених речень є висловлюваннями, та встанови їх істинн
1) Слоненя схоже на кенгуру. И
2) їй сподобався крокодил.
3) Вона любить математику.
4) Значення 10 не перевищує 12.
5) Вірш вивчено напам'ять.
6) Усі дельфіни не є рибами. Со
7) У неділю буде хороша погода.
8) Палити шкідливо.
9) Котра година?
10) Сонце обертається навколо Землі.
Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
Write('Введите число A: ');
Readln(a);
Write('Введите число B: ');
Readln(b);
Write('Введите число C: ');
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln('A= ',a,' B= ',b,' C= ',c);
end
else
Writeln('Symma: ',r);
end
Объяснение:
Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
Write('Введите число A: ');
Readln(a);
Write('Введите число B: ');
Readln(b);
Write('Введите число C: ');
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln('A= ',a,' B= ',b,' C= ',c);
end
else
Writeln('Symma: ',r);
end
Объяснение:Если три квадратных сантиметра это 1см * 3см и дюйм равен 2,5см, то очевидно, что площадь в точках будет равна: (1/2,5*1200)*(3/2,5*1200)Смотря каких точек.. . Если речь идет про разрешение принтера, то здесь считаются все точки каждого красителя (т. е. от каждого картриджа установленного в принтер) Этими точками передается информация каждого пикселя из фотографии (и это зависит от разрешения фотографии) . Подробнее на моем сайте в статье Разрешение. Ссылка на сайт в статусе на моем мире...