По условию:
a=5, b=20, c=-7, d=25
Находим значение переменной r:
r = a + (4 * b * c ) * d = 5 + (4* 20 * -7) * 25 = -13995
Находим значение переменной a:
a = a + 4 = 5 + 4 = 9
Находим значение переменной d:
d = a * 7 = 9 * 7 = 63
program r_a_d;
var
a, b, c : integer;
r, d : real;
begin
a:=5;
b:=20;
c:=-7;
d:=25;
r := a + (4 * b * c ) * d;
a := a+4;
d := a*7;
writeln('r=', r:10:4, ', a=', a, ', d=', d:10:4);
end.
Порівняйте планшетний комп'ютер та комунікатор(смартфон). Що між ними спільного та що відмінного?Сравните планшетный компьютер и коммуникатор(смартфон). Что между ними общего и что отличного?<span>ну смотри общего сними
1.разница в ширене экранов
2.через смартфон можно позвонить другу (а через планшед компьютер нельзя)
3,на планшете легче набирать текст чем на смартфоне
4.в планшете встроент HD формат так что любое видио будет идти в HD
5.у планшета больше заряд энергии так потому что там резервный заряд батареи
6.разни при пакупке планшет кампютер будет канечно стоить дешевле смартфона</span>
<span>обь заходит в расширение и пропускает мир и енисей, затем обь продолжает свое плавание, а мир и енисей поднявшись вверх пропускают в расширение канала восток. после чего мир и енисей продолжают своё плавание восток - своё.</span>
Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0 thenwriteln('четно')else writeln('нечетно')end.
Pascal abc.
Проверка:
введите двузначное число: 74
результат: 47<span>
</span>
